author | paulson |
Thu, 21 Dec 2000 18:08:10 +0100 | |
changeset 10720 | 1ce5a189f672 |
parent 10715 | c838477b5c18 |
permissions | -rw-r--r-- |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1 |
(* Title : NSA.ML |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2 |
Author : Jacques D. Fleuriot |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
3 |
Copyright : 1998 University of Cambridge |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
4 |
Description : Infinite numbers, Infinitesimals, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
5 |
infinitely close relation etc. |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
6 |
*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
7 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
8 |
fun CLAIM_SIMP str thms = |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
9 |
prove_goal (the_context()) str |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
10 |
(fn prems => [cut_facts_tac prems 1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
11 |
auto_tac (claset(),simpset() addsimps thms)]); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
12 |
fun CLAIM str = CLAIM_SIMP str []; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
13 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
14 |
(*-------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
15 |
Closure laws for members of (embedded) set standard real SReal |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
16 |
--------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
17 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
18 |
Goalw [SReal_def] "[| x: SReal; y: SReal |] ==> x + y: SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
19 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
20 |
by (res_inst_tac [("x","r + ra")] exI 1); |
10720 | 21 |
by (Simp_tac 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
22 |
qed "SReal_add"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
23 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
24 |
Goalw [SReal_def] "[| x: SReal; y: SReal |] ==> x * y: SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
25 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
26 |
by (res_inst_tac [("x","r * ra")] exI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
27 |
by (simp_tac (simpset() addsimps [hypreal_of_real_mult]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
28 |
qed "SReal_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
29 |
|
10677 | 30 |
Goalw [SReal_def] "x: SReal ==> inverse x : SReal"; |
10720 | 31 |
by (blast_tac (claset() addIs [hypreal_of_real_inverse RS sym]) 1); |
10607 | 32 |
qed "SReal_inverse"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
33 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
34 |
Goalw [SReal_def] "x: SReal ==> -x : SReal"; |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
35 |
by (blast_tac (claset() addIs [hypreal_of_real_minus RS sym]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
36 |
qed "SReal_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
37 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
38 |
Goal "[| x + y : SReal; y: SReal |] ==> x: SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
39 |
by (dres_inst_tac [("x","y")] SReal_minus 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
40 |
by (dtac SReal_add 1); |
10677 | 41 |
by (auto_tac (claset(), simpset() addsimps [hypreal_add_assoc])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
42 |
qed "SReal_add_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
43 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
44 |
Goalw [SReal_def] "x: SReal ==> abs x : SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
45 |
by (auto_tac (claset(),simpset() addsimps [hypreal_of_real_hrabs])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
46 |
qed "SReal_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
47 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
48 |
Goalw [SReal_def] "hypreal_of_real #1 : SReal"; |
10677 | 49 |
by (auto_tac (claset() addIs [hypreal_of_real_one RS sym], simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
50 |
qed "SReal_hypreal_of_real_one"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
51 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
52 |
Goalw [SReal_def] "hypreal_of_real 0 : SReal"; |
10677 | 53 |
by (auto_tac (claset() addIs [hypreal_of_real_zero RS sym], simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
54 |
qed "SReal_hypreal_of_real_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
55 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
56 |
Goal "1hr : SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
57 |
by (simp_tac (simpset() addsimps [SReal_hypreal_of_real_one, |
10677 | 58 |
hypreal_of_real_one RS sym]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
59 |
qed "SReal_one"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
60 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
61 |
Goal "0 : SReal"; |
10677 | 62 |
by (simp_tac (simpset() addsimps [rename_numerals SReal_hypreal_of_real_zero, |
63 |
hypreal_of_real_zero RS sym]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
64 |
qed "SReal_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
65 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
66 |
Goal "1hr + 1hr : SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
67 |
by (rtac ([SReal_one,SReal_one] MRS SReal_add) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
68 |
qed "SReal_two"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
69 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
70 |
Addsimps [SReal_zero,SReal_two]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
71 |
|
10677 | 72 |
Goalw [hypreal_divide_def] "r : SReal ==> r/(1hr + 1hr): SReal"; |
73 |
by (blast_tac (claset() addSIs [SReal_mult, SReal_inverse, SReal_two]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
74 |
qed "SReal_half"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
75 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
76 |
(* in general: move before previous thms!*) |
10677 | 77 |
Goalw [SReal_def] "hypreal_of_real x: SReal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
78 |
by (Blast_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
79 |
qed "SReal_hypreal_of_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
80 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
81 |
Addsimps [SReal_hypreal_of_real]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
82 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
83 |
(* Infinitesimal ehr not in SReal *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
84 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
85 |
Goalw [SReal_def] "ehr ~: SReal"; |
10677 | 86 |
by (auto_tac (claset(), |
87 |
simpset() addsimps [hypreal_of_real_not_eq_epsilon RS not_sym])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
88 |
qed "SReal_epsilon_not_mem"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
89 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
90 |
Goalw [SReal_def] "whr ~: SReal"; |
10677 | 91 |
by (auto_tac (claset(), |
92 |
simpset() addsimps [hypreal_of_real_not_eq_omega RS not_sym])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
93 |
qed "SReal_omega_not_mem"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
94 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
95 |
Goalw [SReal_def] "{x. hypreal_of_real x : SReal} = (UNIV::real set)"; |
10712 | 96 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
97 |
qed "SReal_UNIV_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
98 |
|
10690 | 99 |
Goalw [SReal_def] "(x: SReal) = (EX y. x = hypreal_of_real y)"; |
10712 | 100 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
101 |
qed "SReal_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
102 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
103 |
Goalw [SReal_def] "hypreal_of_real ``(UNIV::real set) = SReal"; |
10712 | 104 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
105 |
qed "hypreal_of_real_image"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
106 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
107 |
Goalw [SReal_def] "inv hypreal_of_real ``SReal = (UNIV::real set)"; |
10712 | 108 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
109 |
by (rtac (inj_hypreal_of_real RS inv_f_f RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
110 |
by (Blast_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
111 |
qed "inv_hypreal_of_real_image"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
112 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
113 |
Goalw [SReal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
114 |
"[| EX x. x: P; P <= SReal |] ==> EX Q. P = hypreal_of_real `` Q"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
115 |
by (Best_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
116 |
qed "SReal_hypreal_of_real_image"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
117 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
118 |
Goal "[| x: SReal; y: SReal; x < y |] ==> EX r: SReal. x < r & r < y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
119 |
by (auto_tac (claset(),simpset() addsimps [SReal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
120 |
by (dtac real_dense 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
121 |
by (res_inst_tac [("x","hypreal_of_real r")] bexI 1); |
10712 | 122 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
123 |
qed "SReal_dense"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
124 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
125 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
126 |
Completeness of SReal |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
127 |
------------------------------------------------------------------*) |
10690 | 128 |
Goal "P <= SReal ==> ((EX x:P. y < x) = \ |
129 |
\ (EX X. hypreal_of_real X : P & y < hypreal_of_real X))"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
130 |
by (blast_tac (claset() addSDs [SReal_iff RS iffD1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
131 |
by (flexflex_tac ); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
132 |
qed "SReal_sup_lemma"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
133 |
|
10690 | 134 |
Goal "[| P <= SReal; EX x. x: P; EX y : SReal. ALL x: P. x < y |] \ |
135 |
\ ==> (EX X. X: {w. hypreal_of_real w : P}) & \ |
|
136 |
\ (EX Y. ALL X: {w. hypreal_of_real w : P}. X < Y)"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
137 |
by (rtac conjI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
138 |
by (fast_tac (claset() addSDs [SReal_iff RS iffD1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
139 |
by (Auto_tac THEN forward_tac [subsetD] 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
140 |
by (dtac (SReal_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
141 |
by (Auto_tac THEN res_inst_tac [("x","ya")] exI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
142 |
by (auto_tac (claset() addDs [bspec], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
143 |
simpset() addsimps [hypreal_of_real_less_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
144 |
qed "SReal_sup_lemma2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
145 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
146 |
(*------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
147 |
lifting of ub and property of lub |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
148 |
-------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
149 |
Goalw [isUb_def,setle_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
150 |
"(isUb (SReal) (hypreal_of_real `` Q) (hypreal_of_real Y)) = \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
151 |
\ (isUb (UNIV :: real set) Q Y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
152 |
by (blast_tac (claset() addIs [hypreal_of_real_le_iff RS iffD1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
153 |
hypreal_of_real_le_iff RS iffD2,SReal_hypreal_of_real]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
154 |
qed "hypreal_of_real_isUb_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
155 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
156 |
Goalw [isLub_def,leastP_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
157 |
"isLub SReal (hypreal_of_real `` Q) (hypreal_of_real Y) \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
158 |
\ ==> isLub (UNIV :: real set) Q Y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
159 |
by (auto_tac (claset(),simpset() addsimps [hypreal_of_real_isUb_iff, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
160 |
setge_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
161 |
by (blast_tac (claset() addIs [hypreal_of_real_isUb_iff RS iffD2, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
162 |
hypreal_of_real_le_iff RS iffD2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
163 |
qed "hypreal_of_real_isLub1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
164 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
165 |
Goalw [isLub_def,leastP_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
166 |
"isLub (UNIV :: real set) Q Y \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
167 |
\ ==> isLub SReal (hypreal_of_real `` Q) (hypreal_of_real Y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
168 |
by (auto_tac (claset(),simpset() addsimps [hypreal_of_real_isUb_iff, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
169 |
setge_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
170 |
by (forw_inst_tac [("x2","x")] (isUbD2a RS (SReal_iff RS iffD1) RS exE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
171 |
by (assume_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
172 |
by (dres_inst_tac [("x","xa")] spec 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
173 |
by (auto_tac (claset(),simpset() addsimps [hypreal_of_real_isUb_iff, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
174 |
hypreal_of_real_le_iff RS iffD1])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
175 |
qed "hypreal_of_real_isLub2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
176 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
177 |
Goal |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
178 |
"(isLub SReal (hypreal_of_real `` Q) (hypreal_of_real Y)) = \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
179 |
\ (isLub (UNIV :: real set) Q Y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
180 |
by (blast_tac (claset() addIs [hypreal_of_real_isLub1,hypreal_of_real_isLub2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
181 |
qed "hypreal_of_real_isLub_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
182 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
183 |
(* lemmas *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
184 |
Goalw [isUb_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
185 |
"isUb SReal P Y \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
186 |
\ ==> EX Yo. isUb SReal P (hypreal_of_real Yo)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
187 |
by (auto_tac (claset(),simpset() addsimps [SReal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
188 |
qed "lemma_isUb_hypreal_of_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
189 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
190 |
Goalw [isLub_def,leastP_def,isUb_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
191 |
"isLub SReal P Y ==> EX Yo. isLub SReal P (hypreal_of_real Yo)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
192 |
by (auto_tac (claset(),simpset() addsimps [SReal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
193 |
qed "lemma_isLub_hypreal_of_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
194 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
195 |
Goalw [isLub_def,leastP_def,isUb_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
196 |
"EX Yo. isLub SReal P (hypreal_of_real Yo) \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
197 |
\ ==> EX Y. isLub SReal P Y"; |
10712 | 198 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
199 |
qed "lemma_isLub_hypreal_of_real2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
200 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
201 |
Goal "[| P <= SReal; EX x. x: P; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
202 |
\ EX Y. isUb SReal P Y |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
203 |
\ ==> EX t. isLub SReal P t"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
204 |
by (forward_tac [SReal_hypreal_of_real_image] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
205 |
by (Auto_tac THEN dtac lemma_isUb_hypreal_of_real 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
206 |
by (auto_tac (claset() addSIs [reals_complete, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
207 |
lemma_isLub_hypreal_of_real2], simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
208 |
[hypreal_of_real_isLub_iff,hypreal_of_real_isUb_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
209 |
qed "SReal_complete"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
210 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
211 |
(*-------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
212 |
Set of finite elements is a subring of the extended reals |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
213 |
--------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
214 |
Goalw [HFinite_def] "[|x : HFinite;y : HFinite|] ==> (x+y) : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
215 |
by (blast_tac (claset() addSIs [SReal_add,hrabs_add_less]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
216 |
qed "HFinite_add"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
217 |
|
10720 | 218 |
Goalw [HFinite_def] "[|x : HFinite; y : HFinite|] ==> (x*y) : HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
219 |
by (blast_tac (claset() addSIs [SReal_mult,hrabs_mult_less]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
220 |
qed "HFinite_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
221 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
222 |
Goalw [HFinite_def] "(x:HFinite)=(-x:HFinite)"; |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
223 |
by (Simp_tac 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
224 |
qed "HFinite_minus_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
225 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
226 |
Goal "[| x: HFinite; y: HFinite|] ==> (x + -y): HFinite"; |
10720 | 227 |
by (blast_tac (claset() addDs [HFinite_minus_iff RS iffD1] |
228 |
addIs [HFinite_add]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
229 |
qed "HFinite_add_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
230 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
231 |
Goalw [SReal_def,HFinite_def] "SReal <= HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
232 |
by Auto_tac; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
233 |
by (res_inst_tac [("x","1hr + abs(hypreal_of_real r)")] exI 1); |
10720 | 234 |
by (auto_tac (claset(), |
235 |
simpset() addsimps [hypreal_of_real_hrabs, hypreal_zero_less_one])); |
|
236 |
by (res_inst_tac [("x","#1 + abs r")] exI 1); |
|
237 |
by (simp_tac (simpset() addsimps [hypreal_of_real_one, |
|
238 |
hypreal_of_real_zero]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
239 |
qed "SReal_subset_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
240 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
241 |
Goal "hypreal_of_real x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
242 |
by (auto_tac (claset() addIs [(SReal_subset_HFinite RS subsetD)], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
243 |
simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
244 |
qed "HFinite_hypreal_of_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
245 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
246 |
Addsimps [HFinite_hypreal_of_real]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
247 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
248 |
Goalw [HFinite_def] "x : HFinite ==> EX t: SReal. abs x < t"; |
10712 | 249 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
250 |
qed "HFiniteD"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
251 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
252 |
Goalw [HFinite_def] "x : HFinite ==> abs x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
253 |
by (auto_tac (claset(),simpset() addsimps [hrabs_idempotent])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
254 |
qed "HFinite_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
255 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
256 |
Goalw [HFinite_def,Bex_def] "x ~: HFinite ==> abs x ~: HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
257 |
by (auto_tac (claset() addDs [spec],simpset() addsimps [hrabs_idempotent])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
258 |
qed "not_HFinite_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
259 |
|
10690 | 260 |
Goal "0 : HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
261 |
by (rtac (SReal_zero RS (SReal_subset_HFinite RS subsetD)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
262 |
qed "HFinite_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
263 |
Addsimps [HFinite_zero]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
264 |
|
10690 | 265 |
Goal "1hr : HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
266 |
by (rtac (SReal_one RS (SReal_subset_HFinite RS subsetD)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
267 |
qed "HFinite_one"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
268 |
Addsimps [HFinite_one]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
269 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
270 |
Goal "[|x : HFinite; y <= x; 0 <= y |] ==> y: HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
271 |
by (case_tac "x <= 0" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
272 |
by (dres_inst_tac [("j","x")] hypreal_le_trans 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
273 |
by (dtac hypreal_le_anti_sym 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
274 |
by (auto_tac (claset() addSDs [not_hypreal_leE],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
275 |
by (auto_tac (claset() addSIs [bexI] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
276 |
addIs [hypreal_le_less_trans],simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
277 |
[hrabs_eqI1,hrabs_eqI2,hrabs_minus_eqI1,HFinite_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
278 |
qed "HFinite_bounded"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
279 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
280 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
281 |
Set of infinitesimals is a subring of the hyperreals |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
282 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
283 |
Goalw [Infinitesimal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
284 |
"x : Infinitesimal ==> ALL r: SReal. 0 < r --> abs x < r"; |
10712 | 285 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
286 |
qed "InfinitesimalD"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
287 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
288 |
Goalw [Infinitesimal_def] "0 : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
289 |
by (simp_tac (simpset() addsimps [hrabs_zero]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
290 |
qed "Infinitesimal_zero"; |
10720 | 291 |
AddIffs [Infinitesimal_zero]; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
292 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
293 |
Goalw [Infinitesimal_def] |
10677 | 294 |
"[| x : Infinitesimal; y : Infinitesimal |] ==> (x + y) : Infinitesimal"; |
10712 | 295 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
296 |
by (rtac (hypreal_sum_of_halves RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
297 |
by (dtac hypreal_half_gt_zero 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
298 |
by (dtac SReal_half 1); |
10677 | 299 |
by (auto_tac (claset() addSDs [bspec] addIs [hrabs_add_less], simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
300 |
qed "Infinitesimal_add"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
301 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
302 |
Goalw [Infinitesimal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
303 |
"(x:Infinitesimal) = (-x:Infinitesimal)"; |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
304 |
by (Full_simp_tac 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
305 |
qed "Infinitesimal_minus_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
306 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
307 |
Goal "x ~:Infinitesimal = (-x ~:Infinitesimal)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
308 |
by (full_simp_tac (simpset() addsimps [Infinitesimal_minus_iff RS sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
309 |
qed "not_Infinitesimal_minus_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
310 |
|
10690 | 311 |
Goal "[| x : Infinitesimal; y : Infinitesimal |] ==> (x + -y):Infinitesimal"; |
312 |
by (asm_simp_tac |
|
313 |
(simpset() addsimps [Infinitesimal_minus_iff RS sym, |
|
314 |
Infinitesimal_add]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
315 |
qed "Infinitesimal_add_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
316 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
317 |
Goalw [Infinitesimal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
318 |
"[| x : Infinitesimal; y : Infinitesimal |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
319 |
\ ==> (x * y) : Infinitesimal"; |
10712 | 320 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
321 |
by (rtac (hypreal_mult_1_right RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
322 |
by (rtac hrabs_mult_less 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
323 |
by (cut_facts_tac [SReal_one,hypreal_zero_less_one] 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
324 |
by (ALLGOALS(blast_tac (claset() addSDs [bspec]))); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
325 |
qed "Infinitesimal_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
326 |
|
10677 | 327 |
Goal "[| x : Infinitesimal; y : HFinite |] ==> (x * y) : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
328 |
by (auto_tac (claset() addSDs [HFiniteD], |
10677 | 329 |
simpset() addsimps [Infinitesimal_def])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
330 |
by (forward_tac [hrabs_less_gt_zero] 1); |
10607 | 331 |
by (dtac (hypreal_inverse_gt_zero RSN (2,hypreal_mult_less_mono2)) 1 |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
332 |
THEN assume_tac 1); |
10677 | 333 |
by (dtac SReal_inverse 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
334 |
by (dtac SReal_mult 1 THEN assume_tac 1); |
10607 | 335 |
by (thin_tac "inverse t : SReal" 1); |
10677 | 336 |
by (auto_tac (claset() addSDs [bspec], simpset() addsimps [hrabs_mult])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
337 |
by (dtac hrabs_mult_less 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
338 |
by (dtac (hypreal_not_refl2 RS not_sym) 1); |
10607 | 339 |
by (auto_tac (claset() addSDs [hypreal_mult_inverse], |
10677 | 340 |
simpset() addsimps [hrabs_mult] @ hypreal_mult_ac)); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
341 |
qed "Infinitesimal_HFinite_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
342 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
343 |
Goal "[| x : Infinitesimal; y : HFinite |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
344 |
\ ==> (y * x) : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
345 |
by (auto_tac (claset() addDs [Infinitesimal_HFinite_mult], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
346 |
simpset() addsimps [hypreal_mult_commute])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
347 |
qed "Infinitesimal_HFinite_mult2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
348 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
349 |
(*** rather long proof ***) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
350 |
Goalw [HInfinite_def,Infinitesimal_def] |
10677 | 351 |
"x: HInfinite ==> inverse x: Infinitesimal"; |
10712 | 352 |
by Auto_tac; |
10607 | 353 |
by (eres_inst_tac [("x","inverse r")] ballE 1); |
354 |
by (rtac (hrabs_inverse RS ssubst) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
355 |
by (forw_inst_tac [("x1","r"),("R3.0","abs x")] |
10607 | 356 |
(hypreal_inverse_gt_zero RS hypreal_less_trans) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
357 |
by (assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
358 |
by (forw_inst_tac [("s","abs x"),("t","0")] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
359 |
(hypreal_not_refl2 RS not_sym) 1); |
10607 | 360 |
by (dtac ((hypreal_inverse_inverse RS sym) RS subst) 1); |
361 |
by (dres_inst_tac [("x","abs x")] hypreal_inverse_gt_zero 1); |
|
362 |
by (rtac (hypreal_inverse_less_iff RS ssubst) 1); |
|
363 |
by (auto_tac (claset() addSDs [SReal_inverse], |
|
10677 | 364 |
simpset() addsimps [hypreal_not_refl2 RS not_sym, hypreal_less_not_refl])); |
10607 | 365 |
qed "HInfinite_inverse_Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
366 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
367 |
Goalw [HInfinite_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
368 |
"[|x: HInfinite;y: HInfinite|] ==> (x*y): HInfinite"; |
10712 | 369 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
370 |
by (cut_facts_tac [SReal_one] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
371 |
by (eres_inst_tac [("x","1hr")] ballE 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
372 |
by (eres_inst_tac [("x","r")] ballE 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
373 |
by (REPEAT(fast_tac (HOL_cs addSIs [hrabs_mult_gt]) 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
374 |
qed "HInfinite_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
375 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
376 |
Goalw [HInfinite_def] |
10690 | 377 |
"[|x: HInfinite; 0 <= y; 0 <= x|] ==> (x + y): HInfinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
378 |
by (auto_tac (claset() addSIs |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
379 |
[hypreal_add_zero_less_le_mono], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
380 |
simpset() addsimps [hrabs_eqI1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
381 |
hypreal_add_commute,hypreal_le_add_order])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
382 |
qed "HInfinite_add_ge_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
383 |
|
10690 | 384 |
Goal "[|x: HInfinite; 0 <= y; 0 <= x|] ==> (y + x): HInfinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
385 |
by (auto_tac (claset() addSIs [HInfinite_add_ge_zero], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
386 |
simpset() addsimps [hypreal_add_commute])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
387 |
qed "HInfinite_add_ge_zero2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
388 |
|
10690 | 389 |
Goal "[|x: HInfinite; 0 < y; 0 < x|] ==> (x + y): HInfinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
390 |
by (blast_tac (claset() addIs [HInfinite_add_ge_zero, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
391 |
hypreal_less_imp_le]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
392 |
qed "HInfinite_add_gt_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
393 |
|
10712 | 394 |
Goalw [HInfinite_def] "(-x: HInfinite) = (x: HInfinite)"; |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
395 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
396 |
qed "HInfinite_minus_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
397 |
|
10712 | 398 |
Goal "[|x: HInfinite; y <= 0; x <= 0|] ==> (x + y): HInfinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
399 |
by (dtac (HInfinite_minus_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
400 |
by (rtac (HInfinite_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
401 |
by (auto_tac (claset() addIs [HInfinite_add_ge_zero], |
10712 | 402 |
simpset() addsimps [hypreal_minus_zero_le_iff])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
403 |
qed "HInfinite_add_le_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
404 |
|
10712 | 405 |
Goal "[|x: HInfinite; y < 0; x < 0|] ==> (x + y): HInfinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
406 |
by (blast_tac (claset() addIs [HInfinite_add_le_zero, |
10712 | 407 |
hypreal_less_imp_le]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
408 |
qed "HInfinite_add_lt_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
409 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
410 |
Goal "[|a: HFinite; b: HFinite; c: HFinite|] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
411 |
\ ==> a*a + b*b + c*c : HFinite"; |
10712 | 412 |
by (auto_tac (claset() addIs [HFinite_mult,HFinite_add], simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
413 |
qed "HFinite_sum_squares"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
414 |
|
10230 | 415 |
Goal "x ~: Infinitesimal ==> x ~= 0"; |
10712 | 416 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
417 |
qed "not_Infinitesimal_not_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
418 |
|
10230 | 419 |
Goal "x: HFinite - Infinitesimal ==> x ~= 0"; |
10712 | 420 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
421 |
qed "not_Infinitesimal_not_zero2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
422 |
|
10230 | 423 |
Goal "x : Infinitesimal ==> abs x : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
424 |
by (res_inst_tac [("x1","x")] (hrabs_disj RS disjE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
425 |
by (auto_tac (claset(),simpset() addsimps [Infinitesimal_minus_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
426 |
qed "Infinitesimal_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
427 |
|
10230 | 428 |
Goal "x ~: Infinitesimal ==> abs x ~: Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
429 |
by (res_inst_tac [("x1","x")] (hrabs_disj RS disjE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
430 |
by (auto_tac (claset(),simpset() addsimps [Infinitesimal_minus_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
431 |
qed "not_Infinitesimal_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
432 |
|
10230 | 433 |
Goal "abs x : Infinitesimal ==> x : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
434 |
by (rtac ccontr 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
435 |
by (blast_tac (claset() addDs [not_Infinitesimal_hrabs]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
436 |
qed "hrabs_Infinitesimal_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
437 |
|
10230 | 438 |
Goal "x : HFinite - Infinitesimal ==> abs x : HFinite - Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
439 |
by (fast_tac (set_cs addSEs [HFinite_hrabs,not_Infinitesimal_hrabs]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
440 |
qed "HFinite_diff_Infinitesimal_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
441 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
442 |
Goalw [Infinitesimal_def] |
10230 | 443 |
"[| e : Infinitesimal; abs x < e |] ==> x : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
444 |
by (auto_tac (claset() addSDs [bspec],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
445 |
by (dres_inst_tac [("i","e")] (hrabs_ge_self RS hypreal_le_less_trans) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
446 |
by (fast_tac (claset() addIs [hypreal_less_trans]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
447 |
qed "hrabs_less_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
448 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
449 |
Goal |
10230 | 450 |
"[| e : Infinitesimal; abs x <= e |] ==> x : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
451 |
by (blast_tac (claset() addDs [hypreal_le_imp_less_or_eq] addIs |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
452 |
[hrabs_Infinitesimal_Infinitesimal,hrabs_less_Infinitesimal]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
453 |
qed "hrabs_le_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
454 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
455 |
Goalw [Infinitesimal_def] |
10230 | 456 |
"[| e : Infinitesimal; \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
457 |
\ e' : Infinitesimal; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
458 |
\ e' < x ; x < e |] ==> x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
459 |
by (auto_tac (claset() addSDs [bspec],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
460 |
by (dres_inst_tac [("i","e")] (hrabs_ge_self RS hypreal_le_less_trans) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
461 |
by (dtac (hrabs_interval_iff RS iffD1 RS conjunct1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
462 |
by (fast_tac (claset() addIs [hypreal_less_trans,hrabs_interval_iff RS iffD2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
463 |
qed "Infinitesimal_interval"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
464 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
465 |
Goal "[| e : Infinitesimal; e' : Infinitesimal; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
466 |
\ e' <= x ; x <= e |] ==> x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
467 |
by (auto_tac (claset() addIs [Infinitesimal_interval], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
468 |
simpset() addsimps [hypreal_le_eq_less_or_eq])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
469 |
qed "Infinitesimal_interval2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
470 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
471 |
Goalw [Infinitesimal_def] |
10720 | 472 |
"[| x ~: Infinitesimal; \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
473 |
\ y ~: Infinitesimal|] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
474 |
\ ==> (x*y) ~:Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
475 |
by (Clarify_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
476 |
by (eres_inst_tac [("x","r*ra")] ballE 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
477 |
by (fast_tac (claset() addIs [SReal_mult]) 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
478 |
by (auto_tac (claset(),simpset() addsimps [hrabs_mult])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
479 |
by (blast_tac (claset() addSDs [hypreal_mult_order]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
480 |
by (REPEAT(dtac hypreal_leI 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
481 |
by (dtac hypreal_mult_le_ge_zero 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
482 |
by (dres_inst_tac [("j","r*ra")] hypreal_less_le_trans 4); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
483 |
by (auto_tac (claset(),simpset() addsimps [hypreal_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
484 |
qed "not_Infinitesimal_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
485 |
|
10720 | 486 |
Goal "x*y : Infinitesimal ==> x : Infinitesimal | y : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
487 |
by (rtac ccontr 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
488 |
by (dtac (de_Morgan_disj RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
489 |
by (fast_tac (claset() addDs [not_Infinitesimal_mult]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
490 |
qed "Infinitesimal_mult_disj"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
491 |
|
10720 | 492 |
Goal "x: HFinite-Infinitesimal ==> x ~= 0"; |
493 |
by (Blast_tac 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
494 |
qed "HFinite_Infinitesimal_not_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
495 |
|
10720 | 496 |
Goal "[| x : HFinite - Infinitesimal; \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
497 |
\ y : HFinite - Infinitesimal \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
498 |
\ |] ==> (x*y) : HFinite - Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
499 |
by (Clarify_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
500 |
by (blast_tac (claset() addDs [HFinite_mult,not_Infinitesimal_mult]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
501 |
qed "HFinite_Infinitesimal_diff_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
502 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
503 |
Goalw [Infinitesimal_def,HFinite_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
504 |
"Infinitesimal <= HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
505 |
by (blast_tac (claset() addSIs [SReal_one] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
506 |
addSEs [(hypreal_zero_less_one RSN (2,impE))]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
507 |
qed "Infinitesimal_subset_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
508 |
|
10230 | 509 |
Goal "x: Infinitesimal ==> x * hypreal_of_real r : Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
510 |
by (etac (HFinite_hypreal_of_real RSN |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
511 |
(2,Infinitesimal_HFinite_mult)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
512 |
qed "Infinitesimal_hypreal_of_real_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
513 |
|
10230 | 514 |
Goal "x: Infinitesimal ==> hypreal_of_real r * x: Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
515 |
by (etac (HFinite_hypreal_of_real RSN |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
516 |
(2,Infinitesimal_HFinite_mult2)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
517 |
qed "Infinitesimal_hypreal_of_real_mult2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
518 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
519 |
(*---------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
520 |
Infinitely close relation @= |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
521 |
----------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
522 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
523 |
Goalw [Infinitesimal_def,inf_close_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
524 |
"x:Infinitesimal = (x @= 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
525 |
by (Simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
526 |
qed "mem_infmal_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
527 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
528 |
Goalw [inf_close_def]" (x @= y) = (x + -y @= 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
529 |
by (Simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
530 |
qed "inf_close_minus_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
531 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
532 |
Goalw [inf_close_def]" (x @= y) = (-y + x @= 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
533 |
by (simp_tac (simpset() addsimps [hypreal_add_commute]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
534 |
qed "inf_close_minus_iff2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
535 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
536 |
Goalw [inf_close_def,Infinitesimal_def] "x @= x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
537 |
by (Simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
538 |
qed "inf_close_refl"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
539 |
|
10720 | 540 |
Goalw [inf_close_def] "x @= y ==> y @= x"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
541 |
by (rtac (hypreal_minus_distrib1 RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
542 |
by (etac (Infinitesimal_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
543 |
qed "inf_close_sym"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
544 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
545 |
val prem1::prem2::rest = |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
546 |
goalw thy [inf_close_def] "[| x @= y; y @= z |] ==> x @= z"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
547 |
by (res_inst_tac [("y1","y")] (hypreal_add_minus_cancel1 RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
548 |
by (simp_tac (simpset() addsimps [([prem1,prem2] MRS Infinitesimal_add)]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
549 |
qed "inf_close_trans"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
550 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
551 |
val prem1::prem2::rest = goal thy "[| r @= x; s @= x |] ==> r @= s"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
552 |
by (rtac ([prem1,prem2 RS inf_close_sym] MRS inf_close_trans) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
553 |
qed "inf_close_trans2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
554 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
555 |
val prem1::prem2::rest = goal thy "[| x @= r; x @= s|] ==> r @= s"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
556 |
by (rtac ([prem1 RS inf_close_sym,prem2] MRS inf_close_trans) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
557 |
qed "inf_close_trans3"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
558 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
559 |
Goal "(x + -y : Infinitesimal) = (x @= y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
560 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
561 |
[inf_close_minus_iff RS sym,mem_infmal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
562 |
qed "Infinitesimal_inf_close_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
563 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
564 |
Goal "(x + -y : Infinitesimal) = (y @= x)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
565 |
by (auto_tac (claset() addIs [inf_close_sym], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
566 |
simpset() addsimps [inf_close_minus_iff RS sym, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
567 |
mem_infmal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
568 |
qed "Infinitesimal_inf_close_minus2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
569 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
570 |
Goalw [monad_def] "(x @= y) = (monad(x)=monad(y))"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
571 |
by (auto_tac (claset() addDs [inf_close_sym] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
572 |
addSEs [inf_close_trans,equalityCE], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
573 |
simpset() addsimps [inf_close_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
574 |
qed "inf_close_monad_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
575 |
|
10720 | 576 |
Goal "[| x: Infinitesimal; y: Infinitesimal |] ==> x @= y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
577 |
by (asm_full_simp_tac (simpset() addsimps [mem_infmal_iff]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
578 |
by (fast_tac (claset() addIs [inf_close_trans2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
579 |
qed "Infinitesimal_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
580 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
581 |
val prem1::prem2::rest = |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
582 |
goalw thy [inf_close_def] "[| a @= b; c @= d |] ==> a+c @= b+d"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
583 |
by (rtac (hypreal_minus_add_distrib RS ssubst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
584 |
by (rtac (hypreal_add_assoc RS ssubst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
585 |
by (res_inst_tac [("y1","c")] (hypreal_add_left_commute RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
586 |
by (rtac (hypreal_add_assoc RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
587 |
by (rtac ([prem1,prem2] MRS Infinitesimal_add) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
588 |
qed "inf_close_add"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
589 |
|
10690 | 590 |
Goal "a @= b ==> -a @= -b"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
591 |
by (rtac ((inf_close_minus_iff RS iffD2) RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
592 |
by (dtac (inf_close_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
593 |
by (simp_tac (simpset() addsimps [hypreal_add_commute]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
594 |
qed "inf_close_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
595 |
|
10690 | 596 |
Goal "-a @= -b ==> a @= b"; |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
597 |
by (auto_tac (claset() addDs [inf_close_minus], simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
598 |
qed "inf_close_minus2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
599 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
600 |
Goal "(-a @= -b) = (a @= b)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
601 |
by (blast_tac (claset() addIs [inf_close_minus,inf_close_minus2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
602 |
qed "inf_close_minus_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
603 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
604 |
Addsimps [inf_close_minus_cancel]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
605 |
|
10690 | 606 |
Goal "[| a @= b; c @= d |] ==> a + -c @= b + -d"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
607 |
by (blast_tac (claset() addSIs [inf_close_add,inf_close_minus]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
608 |
qed "inf_close_add_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
609 |
|
10690 | 610 |
Goalw [inf_close_def] "[| a @= b; c: HFinite|] ==> a*c @= b*c"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
611 |
by (asm_full_simp_tac (simpset() addsimps [Infinitesimal_HFinite_mult, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
612 |
hypreal_minus_mult_eq1,hypreal_add_mult_distrib RS sym] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
613 |
delsimps [hypreal_minus_mult_eq1 RS sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
614 |
qed "inf_close_mult1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
615 |
|
10690 | 616 |
Goal "[|a @= b; c: HFinite|] ==> c*a @= c*b"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
617 |
by (asm_simp_tac (simpset() addsimps [inf_close_mult1,hypreal_mult_commute]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
618 |
qed "inf_close_mult2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
619 |
|
10690 | 620 |
Goal "[|u @= v*x; x @= y; v: HFinite|] ==> u @= v*y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
621 |
by (fast_tac (claset() addIs [inf_close_mult2,inf_close_trans]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
622 |
qed "inf_close_mult_subst"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
623 |
|
10690 | 624 |
Goal "[| u @= x*v; x @= y; v: HFinite |] ==> u @= y*v"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
625 |
by (fast_tac (claset() addIs [inf_close_mult1,inf_close_trans]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
626 |
qed "inf_close_mult_subst2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
627 |
|
10690 | 628 |
Goal "[| u @= x*hypreal_of_real v; x @= y |] ==> u @= y*hypreal_of_real v"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
629 |
by (auto_tac (claset() addIs [inf_close_mult_subst2],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
630 |
qed "inf_close_mult_subst_SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
631 |
|
10690 | 632 |
Goalw [inf_close_def] "a = b ==> a @= b"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
633 |
by (Asm_simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
634 |
qed "inf_close_eq_imp"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
635 |
|
10230 | 636 |
Goal "x: Infinitesimal ==> -x @= x"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
637 |
by (fast_tac (HOL_cs addIs [Infinitesimal_minus_iff RS iffD1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
638 |
mem_infmal_iff RS iffD1,inf_close_trans2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
639 |
qed "Infinitesimal_minus_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
640 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
641 |
Goalw [inf_close_def] "(EX y: Infinitesimal. x + -z = y) = (x @= z)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
642 |
by (Blast_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
643 |
qed "bex_Infinitesimal_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
644 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
645 |
Goal "(EX y: Infinitesimal. x = z + y) = (x @= z)"; |
10712 | 646 |
by (asm_full_simp_tac (simpset() addsimps [bex_Infinitesimal_iff RS sym]) 1); |
647 |
by (Force_tac 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
648 |
qed "bex_Infinitesimal_iff2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
649 |
|
10230 | 650 |
Goal "[| y: Infinitesimal; x + y = z |] ==> x @= z"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
651 |
by (rtac (bex_Infinitesimal_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
652 |
by (dtac (Infinitesimal_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
653 |
by (auto_tac (claset(),simpset() addsimps [hypreal_minus_add_distrib, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
654 |
hypreal_add_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
655 |
qed "Infinitesimal_add_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
656 |
|
10690 | 657 |
Goal "y: Infinitesimal ==> x @= x + y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
658 |
by (rtac (bex_Infinitesimal_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
659 |
by (dtac (Infinitesimal_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
660 |
by (auto_tac (claset(),simpset() addsimps [hypreal_minus_add_distrib, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
661 |
hypreal_add_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
662 |
qed "Infinitesimal_add_inf_close_self"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
663 |
|
10690 | 664 |
Goal "y: Infinitesimal ==> x @= y + x"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
665 |
by (auto_tac (claset() addDs [Infinitesimal_add_inf_close_self], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
666 |
simpset() addsimps [hypreal_add_commute])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
667 |
qed "Infinitesimal_add_inf_close_self2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
668 |
|
10690 | 669 |
Goal "y: Infinitesimal ==> x @= x + -y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
670 |
by (blast_tac (claset() addSIs [Infinitesimal_add_inf_close_self, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
671 |
Infinitesimal_minus_iff RS iffD1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
672 |
qed "Infinitesimal_add_minus_inf_close_self"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
673 |
|
10230 | 674 |
Goal "[| y: Infinitesimal; x+y @= z|] ==> x @= z"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
675 |
by (dres_inst_tac [("x","x")] (Infinitesimal_add_inf_close_self RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
676 |
by (etac (inf_close_trans3 RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
677 |
by (assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
678 |
qed "Infinitesimal_add_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
679 |
|
10230 | 680 |
Goal "[| y: Infinitesimal; x @= z + y|] ==> x @= z"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
681 |
by (dres_inst_tac [("x","z")] (Infinitesimal_add_inf_close_self2 RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
682 |
by (etac (inf_close_trans3 RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
683 |
by (asm_full_simp_tac (simpset() addsimps [hypreal_add_commute]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
684 |
by (etac inf_close_sym 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
685 |
qed "Infinitesimal_add_right_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
686 |
|
10690 | 687 |
Goal "d + b @= d + c ==> b @= c"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
688 |
by (dtac (inf_close_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
689 |
by (asm_full_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
690 |
[hypreal_minus_add_distrib,inf_close_minus_iff RS sym] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
691 |
@ hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
692 |
qed "inf_close_add_left_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
693 |
|
10690 | 694 |
Goal "b + d @= c + d ==> b @= c"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
695 |
by (rtac inf_close_add_left_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
696 |
by (asm_full_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
697 |
[hypreal_add_commute]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
698 |
qed "inf_close_add_right_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
699 |
|
10690 | 700 |
Goal "b @= c ==> d + b @= d + c"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
701 |
by (rtac (inf_close_minus_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
702 |
by (asm_full_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
703 |
[hypreal_minus_add_distrib,inf_close_minus_iff RS sym] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
704 |
@ hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
705 |
qed "inf_close_add_mono1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
706 |
|
10690 | 707 |
Goal "b @= c ==> b + a @= c + a"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
708 |
by (asm_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
709 |
[hypreal_add_commute,inf_close_add_mono1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
710 |
qed "inf_close_add_mono2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
711 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
712 |
Goal "(a + b @= a + c) = (b @= c)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
713 |
by (fast_tac (claset() addEs [inf_close_add_left_cancel, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
714 |
inf_close_add_mono1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
715 |
qed "inf_close_add_left_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
716 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
717 |
Addsimps [inf_close_add_left_iff]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
718 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
719 |
Goal "(b + a @= c + a) = (b @= c)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
720 |
by (simp_tac (simpset() addsimps [hypreal_add_commute]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
721 |
qed "inf_close_add_right_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
722 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
723 |
Addsimps [inf_close_add_right_iff]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
724 |
|
10230 | 725 |
Goal "[| x: HFinite; x @= y |] ==> y: HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
726 |
by (dtac (bex_Infinitesimal_iff2 RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
727 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
728 |
by (dtac (Infinitesimal_subset_HFinite RS subsetD |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
729 |
RS (HFinite_minus_iff RS iffD1)) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
730 |
by (dtac HFinite_add 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
731 |
by (auto_tac (claset(),simpset() addsimps [hypreal_add_assoc])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
732 |
qed "inf_close_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
733 |
|
10230 | 734 |
Goal "x @= hypreal_of_real D ==> x: HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
735 |
by (rtac (inf_close_sym RSN (2,inf_close_HFinite)) 1); |
10712 | 736 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
737 |
qed "inf_close_hypreal_of_real_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
738 |
|
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
739 |
Goal "[|a @= b; c @= d; b: HFinite; d: HFinite|] ==> a*c @= b*d"; |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
740 |
by (rtac inf_close_trans 1); |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
741 |
by (rtac inf_close_mult2 2); |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
742 |
by (rtac inf_close_mult1 1); |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
743 |
by (blast_tac (claset() addIs [inf_close_HFinite, inf_close_sym]) 2); |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
744 |
by Auto_tac; |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
745 |
qed "inf_close_mult_HFinite"; |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
746 |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
747 |
Goal "[|a @= hypreal_of_real b; c @= hypreal_of_real d |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
748 |
\ ==> a*c @= hypreal_of_real b*hypreal_of_real d"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
749 |
by (blast_tac (claset() addSIs [inf_close_mult_HFinite, |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
750 |
inf_close_hypreal_of_real_HFinite,HFinite_hypreal_of_real]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
751 |
qed "inf_close_mult_hypreal_of_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
752 |
|
10690 | 753 |
Goal "[| a: SReal; a ~= 0; a*x @= 0 |] ==> x @= 0"; |
10607 | 754 |
by (dtac (SReal_inverse RS (SReal_subset_HFinite RS subsetD)) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
755 |
by (auto_tac (claset() addDs [inf_close_mult2], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
756 |
simpset() addsimps [hypreal_mult_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
757 |
qed "inf_close_SReal_mult_cancel_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
758 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
759 |
(* REM comments: newly added *) |
10690 | 760 |
Goal "[| a: SReal; x @= 0 |] ==> x*a @= 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
761 |
by (auto_tac (claset() addDs [(SReal_subset_HFinite RS subsetD), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
762 |
inf_close_mult1],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
763 |
qed "inf_close_mult_SReal1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
764 |
|
10690 | 765 |
Goal "[| a: SReal; x @= 0 |] ==> a*x @= 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
766 |
by (auto_tac (claset() addDs [(SReal_subset_HFinite RS subsetD), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
767 |
inf_close_mult2],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
768 |
qed "inf_close_mult_SReal2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
769 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
770 |
Goal "[|a : SReal; a ~= 0 |] ==> (a*x @= 0) = (x @= 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
771 |
by (blast_tac (claset() addIs [inf_close_SReal_mult_cancel_zero, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
772 |
inf_close_mult_SReal2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
773 |
qed "inf_close_mult_SReal_zero_cancel_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
774 |
Addsimps [inf_close_mult_SReal_zero_cancel_iff]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
775 |
|
10690 | 776 |
Goal "[| a: SReal; a ~= 0; a* w @= a*z |] ==> w @= z"; |
10607 | 777 |
by (dtac (SReal_inverse RS (SReal_subset_HFinite RS subsetD)) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
778 |
by (auto_tac (claset() addDs [inf_close_mult2], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
779 |
simpset() addsimps [hypreal_mult_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
780 |
qed "inf_close_SReal_mult_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
781 |
|
10690 | 782 |
Goal "[| a: SReal; a ~= 0|] ==> (a* w @= a*z) = (w @= z)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
783 |
by (auto_tac (claset() addSIs [inf_close_mult2,SReal_subset_HFinite RS subsetD] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
784 |
addIs [inf_close_SReal_mult_cancel],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
785 |
qed "inf_close_SReal_mult_cancel_iff1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
786 |
Addsimps [inf_close_SReal_mult_cancel_iff1]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
787 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
788 |
Goal "[| z <= f; f @= g; g <= z |] ==> f @= z"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
789 |
by (dtac (bex_Infinitesimal_iff2 RS iffD2) 1); |
10712 | 790 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
791 |
by (dres_inst_tac [("x","-g")] hypreal_add_left_le_mono1 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
792 |
by (dres_inst_tac [("x","-g")] hypreal_add_le_mono1 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
793 |
by (res_inst_tac [("y","-y")] Infinitesimal_add_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
794 |
by (auto_tac (claset(),simpset() addsimps [hypreal_add_assoc RS sym, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
795 |
Infinitesimal_minus_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
796 |
by (rtac inf_close_sym 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
797 |
by (simp_tac (simpset() addsimps [hypreal_add_assoc]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
798 |
by (rtac (inf_close_minus_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
799 |
by (auto_tac (claset(),simpset() addsimps [mem_infmal_iff RS sym, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
800 |
hypreal_add_commute])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
801 |
by (rtac Infinitesimal_interval2 1 THEN Auto_tac); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
802 |
qed "inf_close_le_bound"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
803 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
804 |
Goal "[| z <= f; f @= g; g <= z |] ==> g @= z"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
805 |
by (rtac inf_close_trans3 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
806 |
by (auto_tac (claset() addIs [inf_close_le_bound],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
807 |
qed "inf_close_le_bound2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
808 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
809 |
(*----------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
810 |
Zero is the only infinitesimal that is also a real |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
811 |
-----------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
812 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
813 |
Goalw [Infinitesimal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
814 |
"[| x: SReal; y: Infinitesimal; 0 < x |] ==> y < x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
815 |
by (rtac (hrabs_ge_self RS hypreal_le_less_trans) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
816 |
by (Blast_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
817 |
qed "Infinitesimal_less_SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
818 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
819 |
Goal "y: Infinitesimal ==> ALL r: SReal. 0 < r --> y < r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
820 |
by (blast_tac (claset() addIs [Infinitesimal_less_SReal]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
821 |
qed "Infinitesimal_less_SReal2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
822 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
823 |
Goalw [Infinitesimal_def] |
10690 | 824 |
"[| y: SReal; 0 < y|] ==> y ~: Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
825 |
by (auto_tac (claset() addSDs [bspec] addSEs [hypreal_less_irrefl], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
826 |
simpset() addsimps [hrabs_eqI2])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
827 |
qed "SReal_not_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
828 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
829 |
(* [| y : SReal; 0 < y; y : Infinitesimal |] ==> R *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
830 |
bind_thm("SReal_not_InfinitesimalE", (SReal_not_Infinitesimal RS notE)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
831 |
|
10690 | 832 |
Goal "[| y : SReal; y < 0 |] ==> y ~:Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
833 |
by (blast_tac (claset() addDs [(hypreal_minus_zero_less_iff RS iffD2), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
834 |
SReal_minus,(Infinitesimal_minus_iff RS iffD1),SReal_not_Infinitesimal]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
835 |
qed "SReal_minus_not_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
836 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
837 |
(* [| y : SReal; y < 0; y : Infinitesimal |] ==> R *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
838 |
bind_thm("SReal_minus_not_InfinitesimalE", (SReal_minus_not_Infinitesimal RS notE)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
839 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
840 |
Goal "SReal Int Infinitesimal = {0}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
841 |
by (auto_tac (claset(),simpset() addsimps [SReal_zero])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
842 |
by (cut_inst_tac [("x","x"),("y","0")] hypreal_linear 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
843 |
by (blast_tac (claset() addIs [SReal_not_InfinitesimalE, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
844 |
SReal_minus_not_InfinitesimalE]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
845 |
qed "SReal_Int_Infinitesimal_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
846 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
847 |
Goal "0 : (SReal Int Infinitesimal)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
848 |
by (simp_tac (simpset() addsimps [SReal_zero]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
849 |
qed "zero_mem_SReal_Int_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
850 |
|
10230 | 851 |
Goal "[| x: SReal; x: Infinitesimal|] ==> x = 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
852 |
by (cut_facts_tac [SReal_Int_Infinitesimal_zero] 1); |
10720 | 853 |
by (Blast_tac 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
854 |
qed "SReal_Infinitesimal_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
855 |
|
10720 | 856 |
Goal "[| x : SReal; x ~= 0 |] ==> x : HFinite - Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
857 |
by (auto_tac (claset() addDs [SReal_Infinitesimal_zero, |
10720 | 858 |
SReal_subset_HFinite RS subsetD], simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
859 |
qed "SReal_HFinite_diff_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
860 |
|
10230 | 861 |
Goal "hypreal_of_real x ~= 0 ==> hypreal_of_real x : HFinite - Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
862 |
by (rtac SReal_HFinite_diff_Infinitesimal 1); |
10712 | 863 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
864 |
qed "hypreal_of_real_HFinite_diff_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
865 |
|
10720 | 866 |
Goal "(hypreal_of_real x : Infinitesimal) = (x=0)"; |
867 |
by (auto_tac (claset(), simpset() addsimps [hypreal_of_real_zero])); |
|
868 |
by (rtac ccontr 1); |
|
869 |
by (rtac (hypreal_of_real_HFinite_diff_Infinitesimal RS DiffD2) 1); |
|
870 |
by Auto_tac; |
|
871 |
qed "hypreal_of_real_Infinitesimal_iff_0"; |
|
872 |
AddIffs [hypreal_of_real_Infinitesimal_iff_0]; |
|
873 |
||
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
874 |
Goal "1hr+1hr ~: Infinitesimal"; |
10712 | 875 |
by (fast_tac (claset() addDs [SReal_two RS SReal_Infinitesimal_zero] |
876 |
addSEs [hypreal_two_not_zero RS notE]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
877 |
qed "two_not_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
878 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
879 |
Goal "1hr ~: Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
880 |
by (auto_tac (claset() addSDs [SReal_one RS SReal_Infinitesimal_zero], |
10712 | 881 |
simpset() addsimps [hypreal_zero_not_eq_one RS not_sym])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
882 |
qed "hypreal_one_not_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
883 |
Addsimps [hypreal_one_not_Infinitesimal]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
884 |
|
10230 | 885 |
Goal "[| y: SReal; x @= y; y~= 0 |] ==> x ~= 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
886 |
by (cut_inst_tac [("x","y")] hypreal_trichotomy 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
887 |
by (blast_tac (claset() addDs |
10712 | 888 |
[inf_close_sym RS (mem_infmal_iff RS iffD2), |
889 |
SReal_not_Infinitesimal,SReal_minus_not_Infinitesimal]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
890 |
qed "inf_close_SReal_not_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
891 |
|
10230 | 892 |
Goal "[| x @= hypreal_of_real y; hypreal_of_real y ~= 0 |] ==> x ~= 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
893 |
by (rtac inf_close_SReal_not_zero 1); |
10712 | 894 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
895 |
qed "inf_close_hypreal_of_real_not_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
896 |
|
10230 | 897 |
Goal "[| x @= y; y : HFinite - Infinitesimal |] \ |
10677 | 898 |
\ ==> x : HFinite - Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
899 |
by (auto_tac (claset() addIs [inf_close_sym RSN (2,inf_close_HFinite)], |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
900 |
simpset() addsimps [mem_infmal_iff])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
901 |
by (dtac inf_close_trans3 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
902 |
by (blast_tac (claset() addDs [inf_close_sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
903 |
qed "HFinite_diff_Infinitesimal_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
904 |
|
10677 | 905 |
(*The premise y~=0 is essential; otherwise x/y =0 and we lose the |
906 |
HFinite premise.*) |
|
907 |
Goal "[| y ~= 0; y: Infinitesimal; x/y : HFinite |] ==> x : Infinitesimal"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
908 |
by (dtac Infinitesimal_HFinite_mult2 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
909 |
by (assume_tac 1); |
10677 | 910 |
by (asm_full_simp_tac |
911 |
(simpset() addsimps [hypreal_divide_def, hypreal_mult_assoc]) 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
912 |
qed "Infinitesimal_ratio"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
913 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
914 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
915 |
Standard Part Theorem: Every finite x: R* is infinitely |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
916 |
close to a unique real number (i.e a member of SReal) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
917 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
918 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
919 |
Uniqueness: Two infinitely close reals are equal |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
920 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
921 |
|
10677 | 922 |
Goal "[|x: SReal; y: SReal|] ==> (x @= y) = (x = y)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
923 |
by (auto_tac (claset(),simpset() addsimps [inf_close_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
924 |
by (rewrite_goals_tac [inf_close_def]); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
925 |
by (dres_inst_tac [("x","y")] SReal_minus 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
926 |
by (dtac SReal_add 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
927 |
by (dtac SReal_Infinitesimal_zero 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
928 |
by (dtac sym 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
929 |
by (asm_full_simp_tac (simpset() addsimps [hypreal_eq_minus_iff RS sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
930 |
qed "SReal_inf_close_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
931 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
932 |
Goal "(hypreal_of_real k @= hypreal_of_real m) = (k = m)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
933 |
by (auto_tac (claset(),simpset() addsimps [inf_close_refl, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
934 |
SReal_inf_close_iff,inj_hypreal_of_real RS injD])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
935 |
qed "hypreal_of_real_inf_close_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
936 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
937 |
Addsimps [hypreal_of_real_inf_close_iff]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
938 |
|
10690 | 939 |
Goal "[| r: SReal; s: SReal; r @= x; s @= x|] ==> r = s"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
940 |
by (blast_tac (claset() addIs [(SReal_inf_close_iff RS iffD1), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
941 |
inf_close_trans2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
942 |
qed "inf_close_unique_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
943 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
944 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
945 |
Existence of unique real infinitely close |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
946 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
947 |
(* lemma about lubs *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
948 |
Goal "!!(x::hypreal). [| isLub R S x; isLub R S y |] ==> x = y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
949 |
by (forward_tac [isLub_isUb] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
950 |
by (forw_inst_tac [("x","y")] isLub_isUb 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
951 |
by (blast_tac (claset() addSIs [hypreal_le_anti_sym] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
952 |
addSDs [isLub_le_isUb]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
953 |
qed "hypreal_isLub_unique"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
954 |
|
10230 | 955 |
Goal "x: HFinite ==> EX u. isUb SReal {s. s: SReal & s < x} u"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
956 |
by (dtac HFiniteD 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
957 |
by (rtac exI 1 THEN rtac isUbI 1 THEN assume_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
958 |
by (auto_tac (claset() addIs [hypreal_less_imp_le,setleI,isUbI, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
959 |
hypreal_less_trans],simpset() addsimps [hrabs_interval_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
960 |
qed "lemma_st_part_ub"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
961 |
|
10230 | 962 |
Goal "x: HFinite ==> EX y. y: {s. s: SReal & s < x}"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
963 |
by (dtac HFiniteD 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
964 |
by (dtac SReal_minus 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
965 |
by (auto_tac (claset(),simpset() addsimps [hrabs_interval_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
966 |
qed "lemma_st_part_nonempty"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
967 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
968 |
Goal "{s. s: SReal & s < x} <= SReal"; |
10712 | 969 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
970 |
qed "lemma_st_part_subset"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
971 |
|
10230 | 972 |
Goal "x: HFinite ==> EX t. isLub SReal {s. s: SReal & s < x} t"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
973 |
by (blast_tac (claset() addSIs [SReal_complete,lemma_st_part_ub, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
974 |
lemma_st_part_nonempty, lemma_st_part_subset]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
975 |
qed "lemma_st_part_lub"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
976 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
977 |
Goal "((t::hypreal) + r <= t) = (r <= 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
978 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
979 |
by (dres_inst_tac [("x","-t")] hypreal_add_left_le_mono1 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
980 |
by (dres_inst_tac [("x","t")] hypreal_add_left_le_mono1 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
981 |
by (auto_tac (claset(),simpset() addsimps [hypreal_add_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
982 |
qed "lemma_hypreal_le_left_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
983 |
|
10230 | 984 |
Goal "[| x: HFinite; \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
985 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
986 |
\ r: SReal; 0 < r \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
987 |
\ |] ==> x <= t + r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
988 |
by (forward_tac [isLubD1a] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
989 |
by (rtac ccontr 1 THEN dtac not_hypreal_leE 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
990 |
by (dres_inst_tac [("x","t")] SReal_add 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
991 |
by (dres_inst_tac [("y","t + r")] (isLubD1 RS setleD) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
992 |
by (auto_tac (claset(),simpset() addsimps [lemma_hypreal_le_left_cancel])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
993 |
by (dtac hypreal_less_le_trans 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
994 |
by (asm_full_simp_tac (simpset() addsimps [hypreal_less_not_refl]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
995 |
qed "lemma_st_part_le1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
996 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
997 |
Goalw [setle_def] "!!x::hypreal. [| S *<= x; x < y |] ==> S *<= y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
998 |
by (auto_tac (claset() addSDs [bspec,hypreal_le_less_trans] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
999 |
addIs [hypreal_less_imp_le],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1000 |
qed "hypreal_setle_less_trans"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1001 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1002 |
Goalw [isUb_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1003 |
"!!x::hypreal. [| isUb R S x; x < y; y: R |] ==> isUb R S y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1004 |
by (blast_tac (claset() addIs [hypreal_setle_less_trans]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1005 |
qed "hypreal_gt_isUb"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1006 |
|
10230 | 1007 |
Goal "[| x: HFinite; x < y; y: SReal |] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1008 |
\ ==> isUb SReal {s. s: SReal & s < x} y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1009 |
by (auto_tac (claset() addDs [hypreal_less_trans] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1010 |
addIs [hypreal_less_imp_le] addSIs [isUbI,setleI],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1011 |
qed "lemma_st_part_gt_ub"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1012 |
|
10690 | 1013 |
Goal "t <= t + -r ==> r <= (0::hypreal)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1014 |
by (dres_inst_tac [("x","-t")] hypreal_add_left_le_mono1 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1015 |
by (auto_tac (claset(),simpset() addsimps [hypreal_add_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1016 |
qed "lemma_minus_le_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1017 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1018 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1019 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1020 |
\ r: SReal; 0 < r |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1021 |
\ ==> t + -r <= x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1022 |
by (forward_tac [isLubD1a] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1023 |
by (rtac ccontr 1 THEN dtac not_hypreal_leE 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1024 |
by (dtac SReal_minus 1 THEN dres_inst_tac [("x","t")] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1025 |
SReal_add 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1026 |
by (dtac lemma_st_part_gt_ub 1 THEN REPEAT(assume_tac 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1027 |
by (dtac isLub_le_isUb 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1028 |
by (dtac lemma_minus_le_zero 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1029 |
by (auto_tac (claset() addDs [hypreal_less_le_trans], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1030 |
simpset() addsimps [hypreal_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1031 |
qed "lemma_st_part_le2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1032 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1033 |
Goal "((x::hypreal) <= t + r) = (x + -t <= r)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1034 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1035 |
by (dres_inst_tac [("x","-t")] hypreal_add_left_le_mono1 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1036 |
by (dres_inst_tac [("x","t")] hypreal_add_le_mono1 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1037 |
by (asm_full_simp_tac (simpset() addsimps [hypreal_add_assoc RS sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1038 |
by (asm_full_simp_tac (simpset() addsimps [hypreal_add_assoc]) 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1039 |
by (auto_tac (claset(),simpset() addsimps [hypreal_add_commute])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1040 |
qed "lemma_hypreal_le_swap"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1041 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1042 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1043 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1044 |
\ r: SReal; 0 < r |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1045 |
\ ==> x + -t <= r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1046 |
by (blast_tac (claset() addSIs [lemma_hypreal_le_swap RS iffD1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1047 |
lemma_st_part_le1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1048 |
qed "lemma_st_part1a"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1049 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1050 |
Goal "(t + -r <= x) = (-(x + -t) <= (r::hypreal))"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1051 |
by (auto_tac (claset(),simpset() addsimps [hypreal_minus_add_distrib, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1052 |
hypreal_add_commute,lemma_hypreal_le_swap RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1053 |
qed "lemma_hypreal_le_swap2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1054 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1055 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1056 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1057 |
\ r: SReal; 0 < r |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1058 |
\ ==> -(x + -t) <= r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1059 |
by (blast_tac (claset() addSIs [lemma_hypreal_le_swap2 RS iffD1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1060 |
lemma_st_part_le2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1061 |
qed "lemma_st_part2a"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1062 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1063 |
Goal "x: SReal ==> isUb SReal {s. s: SReal & s < x} x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1064 |
by (auto_tac (claset() addIs [isUbI, setleI,hypreal_less_imp_le],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1065 |
qed "lemma_SReal_ub"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1066 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1067 |
Goal "x: SReal ==> isLub SReal {s. s: SReal & s < x} x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1068 |
by (auto_tac (claset() addSIs [isLubI2,lemma_SReal_ub,setgeI],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1069 |
by (forward_tac [isUbD2a] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1070 |
by (res_inst_tac [("x","x"),("y","y")] hypreal_linear_less2 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1071 |
by (auto_tac (claset() addSIs [hypreal_less_imp_le,hypreal_le_refl],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1072 |
by (EVERY1[dtac SReal_dense, assume_tac, assume_tac, Step_tac]); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1073 |
by (dres_inst_tac [("y","r")] isUbD 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1074 |
by (auto_tac (claset() addDs [hypreal_less_le_trans], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1075 |
simpset() addsimps [hypreal_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1076 |
qed "lemma_SReal_lub"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1077 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1078 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1079 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1080 |
\ r: SReal; 0 < r |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1081 |
\ ==> x + -t ~= r"; |
10712 | 1082 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1083 |
by (forward_tac [isLubD1a RS SReal_minus] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1084 |
by (dtac SReal_add_cancel 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1085 |
by (dres_inst_tac [("x","x")] lemma_SReal_lub 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1086 |
by (dtac hypreal_isLub_unique 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1087 |
by (auto_tac (claset(),simpset() addsimps [hypreal_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1088 |
qed "lemma_st_part_not_eq1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1089 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1090 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1091 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1092 |
\ r: SReal; 0 < r |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1093 |
\ ==> -(x + -t) ~= r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1094 |
by (auto_tac (claset(),simpset() addsimps [hypreal_minus_add_distrib])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1095 |
by (forward_tac [isLubD1a] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1096 |
by (dtac SReal_add_cancel 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1097 |
by (dres_inst_tac [("x","-x")] SReal_minus 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1098 |
by (Asm_full_simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1099 |
by (dres_inst_tac [("x","x")] lemma_SReal_lub 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1100 |
by (dtac hypreal_isLub_unique 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1101 |
by (auto_tac (claset(),simpset() addsimps [hypreal_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1102 |
qed "lemma_st_part_not_eq2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1103 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1104 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1105 |
\ isLub SReal {s. s: SReal & s < x} t; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1106 |
\ r: SReal; 0 < r |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1107 |
\ ==> abs (x + -t) < r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1108 |
by (forward_tac [lemma_st_part1a] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1109 |
by (forward_tac [lemma_st_part2a] 4); |
10712 | 1110 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1111 |
by (REPEAT(dtac hypreal_le_imp_less_or_eq 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1112 |
by (auto_tac (claset() addDs [lemma_st_part_not_eq1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1113 |
lemma_st_part_not_eq2],simpset() addsimps [hrabs_interval_iff2])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1114 |
qed "lemma_st_part_major"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1115 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1116 |
Goal "[| x: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1117 |
\ isLub SReal {s. s: SReal & s < x} t |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1118 |
\ ==> ALL r: SReal. 0 < r --> abs (x + -t) < r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1119 |
by (blast_tac (claset() addSDs [lemma_st_part_major]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1120 |
qed "lemma_st_part_major2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1121 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1122 |
(*---------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1123 |
Existence of real and Standard Part Theorem |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1124 |
----------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1125 |
Goal "x: HFinite ==> \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1126 |
\ EX t: SReal. ALL r: SReal. 0 < r --> abs (x + -t) < r"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1127 |
by (forward_tac [lemma_st_part_lub] 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1128 |
by (forward_tac [isLubD1a] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1129 |
by (blast_tac (claset() addDs [lemma_st_part_major2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1130 |
qed "lemma_st_part_Ex"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1131 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1132 |
Goalw [inf_close_def,Infinitesimal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1133 |
"x:HFinite ==> EX t: SReal. x @= t"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1134 |
by (blast_tac (claset() addSDs [lemma_st_part_Ex]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1135 |
qed "st_part_Ex"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1136 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1137 |
(*-------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1138 |
Unique real infinitely close |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1139 |
-------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1140 |
Goal "x:HFinite ==> EX! t. t: SReal & x @= t"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1141 |
by (dtac st_part_Ex 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1142 |
by (dtac inf_close_sym 2 THEN dtac inf_close_sym 2 |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1143 |
THEN dtac inf_close_sym 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1144 |
by (auto_tac (claset() addSIs [inf_close_unique_real],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1145 |
qed "st_part_Ex1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1146 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1147 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1148 |
Finite and Infinite --- more theorems |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1149 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1150 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1151 |
Goalw [HFinite_def,HInfinite_def] "HFinite Int HInfinite = {}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1152 |
by (auto_tac (claset() addIs [hypreal_less_irrefl] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1153 |
addDs [hypreal_less_trans,bspec], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1154 |
simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1155 |
qed "HFinite_Int_HInfinite_empty"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1156 |
Addsimps [HFinite_Int_HInfinite_empty]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1157 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1158 |
Goal "x: HFinite ==> x ~: HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1159 |
by (EVERY1[Step_tac, dtac IntI, assume_tac]); |
10712 | 1160 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1161 |
qed "HFinite_not_HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1162 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1163 |
val [prem] = goalw thy [HInfinite_def] "x~: HFinite ==> x: HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1164 |
by (cut_facts_tac [prem] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1165 |
by (Clarify_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1166 |
by (auto_tac (claset() addSDs [spec],simpset() addsimps [HFinite_def,Bex_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1167 |
by (dtac (hypreal_leI RS hypreal_le_imp_less_or_eq) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1168 |
by (auto_tac (claset() addSDs [(SReal_subset_HFinite RS subsetD)], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1169 |
simpset() addsimps [prem,hrabs_idempotent,prem RS not_HFinite_hrabs])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1170 |
qed "not_HFinite_HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1171 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1172 |
Goal "x : HInfinite | x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1173 |
by (blast_tac (claset() addIs [not_HFinite_HInfinite]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1174 |
qed "HInfinite_HFinite_disj"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1175 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1176 |
Goal "(x : HInfinite) = (x ~: HFinite)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1177 |
by (blast_tac (claset() addDs [HFinite_not_HInfinite, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1178 |
not_HFinite_HInfinite]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1179 |
qed "HInfinite_HFinite_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1180 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1181 |
Goal "(x : HFinite) = (x ~: HInfinite)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1182 |
by (simp_tac (simpset() addsimps [HInfinite_HFinite_iff]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1183 |
qed "HFinite_HInfinite_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1184 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1185 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1186 |
Finite, Infinite and Infinitesimal --- more theorems |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1187 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1188 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1189 |
Goal "x ~: Infinitesimal ==> x : HInfinite | x : HFinite - Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1190 |
by (fast_tac (claset() addIs [not_HFinite_HInfinite]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1191 |
qed "HInfinite_diff_HFinite_Infinitesimal_disj"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1192 |
|
10607 | 1193 |
Goal "[| x : HFinite; x ~: Infinitesimal |] ==> inverse x : HFinite"; |
1194 |
by (cut_inst_tac [("x","inverse x")] HInfinite_HFinite_disj 1); |
|
1195 |
by (auto_tac (claset() addSDs [HInfinite_inverse_Infinitesimal],simpset())); |
|
1196 |
qed "HFinite_inverse"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1197 |
|
10607 | 1198 |
Goal "x : HFinite - Infinitesimal ==> inverse x : HFinite"; |
1199 |
by (blast_tac (claset() addIs [HFinite_inverse]) 1); |
|
1200 |
qed "HFinite_inverse2"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1201 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1202 |
(* stronger statement possible in fact *) |
10607 | 1203 |
Goal "x ~: Infinitesimal ==> inverse(x) : HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1204 |
by (dtac HInfinite_diff_HFinite_Infinitesimal_disj 1); |
10607 | 1205 |
by (blast_tac (claset() addIs [HFinite_inverse, |
10677 | 1206 |
HInfinite_inverse_Infinitesimal, |
1207 |
Infinitesimal_subset_HFinite RS subsetD]) 1); |
|
10607 | 1208 |
qed "Infinitesimal_inverse_HFinite"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1209 |
|
10607 | 1210 |
Goal "x : HFinite - Infinitesimal ==> inverse x : HFinite - Infinitesimal"; |
1211 |
by (auto_tac (claset() addIs [Infinitesimal_inverse_HFinite],simpset())); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1212 |
by (dtac Infinitesimal_HFinite_mult2 1); |
10677 | 1213 |
by (auto_tac (claset() addSDs [not_Infinitesimal_not_zero, |
1214 |
hypreal_mult_inverse], |
|
1215 |
simpset())); |
|
10607 | 1216 |
qed "HFinite_not_Infinitesimal_inverse"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1217 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1218 |
Goal "[| x @= y; y : HFinite - Infinitesimal |] \ |
10607 | 1219 |
\ ==> inverse x @= inverse y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1220 |
by (forward_tac [HFinite_diff_Infinitesimal_inf_close] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1221 |
by (assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1222 |
by (forward_tac [not_Infinitesimal_not_zero2] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1223 |
by (forw_inst_tac [("x","x")] not_Infinitesimal_not_zero2 1); |
10607 | 1224 |
by (REPEAT(dtac HFinite_inverse2 1)); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1225 |
by (dtac inf_close_mult2 1 THEN assume_tac 1); |
10712 | 1226 |
by Auto_tac; |
10607 | 1227 |
by (dres_inst_tac [("c","inverse x")] inf_close_mult1 1 |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1228 |
THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1229 |
by (auto_tac (claset() addIs [inf_close_sym], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1230 |
simpset() addsimps [hypreal_mult_assoc])); |
10607 | 1231 |
qed "inf_close_inverse"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1232 |
|
10720 | 1233 |
(*Used for NSLIM_inverse, NSLIMSEQ_inverse*) |
1234 |
bind_thm ("hypreal_of_real_inf_close_inverse", |
|
1235 |
hypreal_of_real_HFinite_diff_Infinitesimal RSN (2, inf_close_inverse)); |
|
1236 |
||
10230 | 1237 |
Goal "[| x: HFinite - Infinitesimal; \ |
10720 | 1238 |
\ h : Infinitesimal |] ==> inverse(x + h) @= inverse x"; |
1239 |
by (auto_tac (claset() addIs [inf_close_inverse, inf_close_sym, |
|
1240 |
Infinitesimal_add_inf_close_self], |
|
1241 |
simpset())); |
|
10607 | 1242 |
qed "inverse_add_Infinitesimal_inf_close"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1243 |
|
10230 | 1244 |
Goal "[| x: HFinite - Infinitesimal; \ |
10607 | 1245 |
\ h : Infinitesimal |] ==> inverse(h + x) @= inverse x"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1246 |
by (rtac (hypreal_add_commute RS subst) 1); |
10607 | 1247 |
by (blast_tac (claset() addIs [inverse_add_Infinitesimal_inf_close]) 1); |
1248 |
qed "inverse_add_Infinitesimal_inf_close2"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1249 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1250 |
Goal |
10230 | 1251 |
"[| x: HFinite - Infinitesimal; \ |
10607 | 1252 |
\ h : Infinitesimal |] ==> inverse(x + h) + -inverse x @= h"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1253 |
by (rtac inf_close_trans2 1); |
10607 | 1254 |
by (auto_tac (claset() addIs [inverse_add_Infinitesimal_inf_close, |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1255 |
inf_close_minus_iff RS iffD1],simpset() addsimps [mem_infmal_iff RS sym])); |
10607 | 1256 |
qed "inverse_add_Infinitesimal_inf_close_Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1257 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1258 |
Goal "(x : Infinitesimal) = (x*x : Infinitesimal)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1259 |
by (auto_tac (claset() addIs [Infinitesimal_mult],simpset())); |
10607 | 1260 |
by (rtac ccontr 1 THEN forward_tac [Infinitesimal_inverse_HFinite] 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1261 |
by (forward_tac [not_Infinitesimal_not_zero] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1262 |
by (auto_tac (claset() addDs [Infinitesimal_HFinite_mult], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1263 |
simpset() addsimps [hypreal_mult_assoc])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1264 |
qed "Infinitesimal_square_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1265 |
Addsimps [Infinitesimal_square_iff RS sym]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1266 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1267 |
Goal "(x*x : HFinite) = (x : HFinite)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1268 |
by (auto_tac (claset() addIs [HFinite_mult],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1269 |
by (auto_tac (claset() addDs [HInfinite_mult], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1270 |
simpset() addsimps [HFinite_HInfinite_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1271 |
qed "HFinite_square_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1272 |
Addsimps [HFinite_square_iff]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1273 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1274 |
Goal "(x*x : HInfinite) = (x : HInfinite)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1275 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1276 |
[HInfinite_HFinite_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1277 |
qed "HInfinite_square_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1278 |
Addsimps [HInfinite_square_iff]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1279 |
|
10690 | 1280 |
Goal "[| a: HFinite-Infinitesimal; a* w @= a*z |] ==> w @= z"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1281 |
by (Step_tac 1); |
10607 | 1282 |
by (ftac HFinite_inverse 1 THEN assume_tac 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1283 |
by (dtac not_Infinitesimal_not_zero 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1284 |
by (auto_tac (claset() addDs [inf_close_mult2], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1285 |
simpset() addsimps [hypreal_mult_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1286 |
qed "inf_close_HFinite_mult_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1287 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1288 |
Goal "a: HFinite-Infinitesimal ==> (a * w @= a * z) = (w @= z)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1289 |
by (auto_tac (claset() addIs [inf_close_mult2, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1290 |
inf_close_HFinite_mult_cancel],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1291 |
qed "inf_close_HFinite_mult_cancel_iff1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1292 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1293 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1294 |
more about absolute value (hrabs) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1295 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1296 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1297 |
Goal "abs x @= x | abs x @= -x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1298 |
by (cut_inst_tac [("x","x")] hrabs_disj 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1299 |
by (auto_tac (claset(),simpset() addsimps [inf_close_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1300 |
qed "inf_close_hrabs_disj"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1301 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1302 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1303 |
Theorems about monads |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1304 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1305 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1306 |
Goal "monad (abs x) <= monad(x) Un monad(-x)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1307 |
by (res_inst_tac [("x1","x")] (hrabs_disj RS disjE) 1); |
10712 | 1308 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1309 |
qed "monad_hrabs_Un_subset"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1310 |
|
10720 | 1311 |
Goal "e : Infinitesimal ==> monad (x+e) = monad x"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1312 |
by (fast_tac (claset() addSIs [Infinitesimal_add_inf_close_self RS inf_close_sym, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1313 |
inf_close_monad_iff RS iffD1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1314 |
qed "Infinitesimal_monad_eq"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1315 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1316 |
Goalw [monad_def] "(u:monad x) = (-u:monad (-x))"; |
10712 | 1317 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1318 |
qed "mem_monad_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1319 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1320 |
Goalw [monad_def] "(x:Infinitesimal) = (x:monad 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1321 |
by (auto_tac (claset() addIs [inf_close_sym], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1322 |
simpset() addsimps [mem_infmal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1323 |
qed "Infinitesimal_monad_zero_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1324 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1325 |
Goal "(x:monad 0) = (-x:monad 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1326 |
by (simp_tac (simpset() addsimps [Infinitesimal_monad_zero_iff RS sym, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1327 |
Infinitesimal_minus_iff RS sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1328 |
qed "monad_zero_minus_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1329 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1330 |
Goal "(x:monad 0) = (abs x:monad 0)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1331 |
by (res_inst_tac [("x1","x")] (hrabs_disj RS disjE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1332 |
by (auto_tac (claset(),simpset() addsimps [monad_zero_minus_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1333 |
qed "monad_zero_hrabs_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1334 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1335 |
Goalw [monad_def] "x:monad x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1336 |
by (simp_tac (simpset() addsimps [inf_close_refl]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1337 |
qed "mem_monad_self"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1338 |
Addsimps [mem_monad_self]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1339 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1340 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1341 |
Proof that x @= y ==> abs x @= abs y |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1342 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1343 |
Goal "x @= y ==> {x,y}<=monad x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1344 |
by (Simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1345 |
by (asm_full_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1346 |
[inf_close_monad_iff]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1347 |
qed "inf_close_subset_monad"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1348 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1349 |
Goal "x @= y ==> {x,y}<=monad y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1350 |
by (dtac inf_close_sym 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1351 |
by (fast_tac (claset() addDs [inf_close_subset_monad]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1352 |
qed "inf_close_subset_monad2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1353 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1354 |
Goalw [monad_def] "u:monad x ==> x @= u"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1355 |
by (Fast_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1356 |
qed "mem_monad_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1357 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1358 |
Goalw [monad_def] "x @= u ==> u:monad x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1359 |
by (Fast_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1360 |
qed "inf_close_mem_monad"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1361 |
|
10690 | 1362 |
Goalw [monad_def] "x @= u ==> x:monad u"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1363 |
by (blast_tac (claset() addSIs [inf_close_sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1364 |
qed "inf_close_mem_monad2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1365 |
|
10720 | 1366 |
Goal "[| x @= y;x:monad 0 |] ==> y:monad 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1367 |
by (dtac mem_monad_inf_close 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1368 |
by (fast_tac (claset() addIs [inf_close_mem_monad,inf_close_trans]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1369 |
qed "inf_close_mem_monad_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1370 |
|
10720 | 1371 |
Goal "[| x @= y; x: Infinitesimal |] ==> abs x @= abs y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1372 |
by (fast_tac (claset() addIs [(Infinitesimal_monad_zero_iff RS iffD1), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1373 |
inf_close_mem_monad_zero,(monad_zero_hrabs_iff RS iffD1), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1374 |
mem_monad_inf_close,inf_close_trans3]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1375 |
qed "Infinitesimal_inf_close_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1376 |
|
10720 | 1377 |
Goal "[| 0 < x; x ~:Infinitesimal |] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1378 |
\ ==> ALL e: Infinitesimal. e < x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1379 |
by (Step_tac 1 THEN rtac ccontr 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1380 |
by (auto_tac (claset() addIs [Infinitesimal_zero RSN (2, Infinitesimal_interval)] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1381 |
addSDs [hypreal_leI RS hypreal_le_imp_less_or_eq],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1382 |
qed "Ball_Infinitesimal_less"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1383 |
|
10720 | 1384 |
Goal "[| 0 < x; x ~: Infinitesimal|] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1385 |
\ ==> ALL u: monad x. 0 < u"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1386 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1387 |
by (dtac (mem_monad_inf_close RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1388 |
by (etac (bex_Infinitesimal_iff2 RS iffD2 RS bexE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1389 |
by (eres_inst_tac [("x","-xa")] (Ball_Infinitesimal_less RS ballE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1390 |
by (dtac (hypreal_less_minus_iff RS iffD1) 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1391 |
by (auto_tac (claset(),simpset() addsimps [Infinitesimal_minus_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1392 |
qed "Ball_mem_monad_gt_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1393 |
|
10720 | 1394 |
Goal "[| x < 0; x ~: Infinitesimal|] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1395 |
\ ==> ALL u: monad x. u < 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1396 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1397 |
by (dtac (mem_monad_inf_close RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1398 |
by (etac (bex_Infinitesimal_iff RS iffD2 RS bexE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1399 |
by (dtac (hypreal_minus_zero_less_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1400 |
by (eres_inst_tac [("x","xa")] (Ball_Infinitesimal_less RS ballE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1401 |
by (dtac (hypreal_less_minus_iff2 RS iffD1) 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1402 |
by (auto_tac (claset(),simpset() addsimps [Infinitesimal_minus_iff RS sym] @ hypreal_add_ac)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1403 |
qed "Ball_mem_monad_less_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1404 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1405 |
Goal "[|0 < x; x ~: Infinitesimal; x @= y|] ==> 0 < y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1406 |
by (blast_tac (claset() addDs [Ball_mem_monad_gt_zero, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1407 |
inf_close_subset_monad]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1408 |
qed "lemma_inf_close_gt_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1409 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1410 |
Goal "[|x < 0; x ~: Infinitesimal; x @= y|] ==> y < 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1411 |
by (blast_tac (claset() addDs [Ball_mem_monad_less_zero, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1412 |
inf_close_subset_monad]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1413 |
qed "lemma_inf_close_less_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1414 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1415 |
Goal "[| x @= y; x < 0; x ~: Infinitesimal |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1416 |
\ ==> abs x @= abs y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1417 |
by (forward_tac [lemma_inf_close_less_zero] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1418 |
by (REPEAT(assume_tac 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1419 |
by (REPEAT(dtac hrabs_minus_eqI2 1)); |
10712 | 1420 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1421 |
qed "inf_close_hrabs1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1422 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1423 |
Goal "[| x @= y; 0 < x; x ~: Infinitesimal |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1424 |
\ ==> abs x @= abs y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1425 |
by (forward_tac [lemma_inf_close_gt_zero] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1426 |
by (REPEAT(assume_tac 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1427 |
by (REPEAT(dtac hrabs_eqI2 1)); |
10712 | 1428 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1429 |
qed "inf_close_hrabs2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1430 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1431 |
Goal "x @= y ==> abs x @= abs y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1432 |
by (res_inst_tac [("Q","x:Infinitesimal")] (excluded_middle RS disjE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1433 |
by (res_inst_tac [("x1","x"),("y1","0")] (hypreal_linear RS disjE) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1434 |
by (auto_tac (claset() addIs [inf_close_hrabs1,inf_close_hrabs2, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1435 |
Infinitesimal_inf_close_hrabs],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1436 |
qed "inf_close_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1437 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1438 |
Goal "abs(x) @= 0 ==> x @= 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1439 |
by (cut_inst_tac [("x","x")] hrabs_disj 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1440 |
by (auto_tac (claset() addDs [inf_close_minus],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1441 |
qed "inf_close_hrabs_zero_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1442 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1443 |
Goal "e: Infinitesimal ==> abs x @= abs(x+e)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1444 |
by (fast_tac (claset() addIs [inf_close_hrabs, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1445 |
Infinitesimal_add_inf_close_self]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1446 |
qed "inf_close_hrabs_add_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1447 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1448 |
Goal "e: Infinitesimal ==> abs x @= abs(x + -e)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1449 |
by (fast_tac (claset() addIs [inf_close_hrabs, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1450 |
Infinitesimal_add_minus_inf_close_self]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1451 |
qed "inf_close_hrabs_add_minus_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1452 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1453 |
Goal "[| e: Infinitesimal; e': Infinitesimal; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1454 |
\ abs(x+e) = abs(y+e')|] ==> abs x @= abs y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1455 |
by (dres_inst_tac [("x","x")] inf_close_hrabs_add_Infinitesimal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1456 |
by (dres_inst_tac [("x","y")] inf_close_hrabs_add_Infinitesimal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1457 |
by (auto_tac (claset() addIs [inf_close_trans2],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1458 |
qed "hrabs_add_Infinitesimal_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1459 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1460 |
Goal "[| e: Infinitesimal; e': Infinitesimal; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1461 |
\ abs(x + -e) = abs(y + -e')|] ==> abs x @= abs y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1462 |
by (dres_inst_tac [("x","x")] inf_close_hrabs_add_minus_Infinitesimal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1463 |
by (dres_inst_tac [("x","y")] inf_close_hrabs_add_minus_Infinitesimal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1464 |
by (auto_tac (claset() addIs [inf_close_trans2],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1465 |
qed "hrabs_add_minus_Infinitesimal_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1466 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1467 |
(* interesting slightly counterintuitive theorem: necessary |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1468 |
for proving that an open interval is an NS open set |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1469 |
*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1470 |
Goalw [Infinitesimal_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1471 |
"[| xa: Infinitesimal; hypreal_of_real x < hypreal_of_real y |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1472 |
\ ==> hypreal_of_real x + xa < hypreal_of_real y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1473 |
by (dtac (hypreal_less_minus_iff RS iffD1) 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1474 |
by (rtac (hypreal_less_minus_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1475 |
by (dres_inst_tac [("x","hypreal_of_real y + -hypreal_of_real x")] bspec 1); |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
1476 |
by (auto_tac (claset(), |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
1477 |
simpset() addsimps [hypreal_add_commute, |
10720 | 1478 |
hrabs_interval_iff, |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
1479 |
SReal_add, SReal_minus])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1480 |
by (dres_inst_tac [("x1","xa")] (hypreal_less_minus_iff RS iffD1) 1); |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
1481 |
by (auto_tac (claset(), |
10720 | 1482 |
simpset() addsimps [hypreal_minus_add_distrib] @ hypreal_add_ac)); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1483 |
qed "Infinitesimal_add_hypreal_of_real_less"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1484 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1485 |
Goal "[| x: Infinitesimal; abs(hypreal_of_real r) < hypreal_of_real y |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1486 |
\ ==> abs (hypreal_of_real r + x) < hypreal_of_real y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1487 |
by (dres_inst_tac [("x","hypreal_of_real r")] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1488 |
inf_close_hrabs_add_Infinitesimal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1489 |
by (dtac (inf_close_sym RS (bex_Infinitesimal_iff2 RS iffD2)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1490 |
by (auto_tac (claset() addSIs [Infinitesimal_add_hypreal_of_real_less], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1491 |
simpset() addsimps [hypreal_of_real_hrabs])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1492 |
qed "Infinitesimal_add_hrabs_hypreal_of_real_less"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1493 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1494 |
Goal "[| x: Infinitesimal; abs(hypreal_of_real r) < hypreal_of_real y |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1495 |
\ ==> abs (x + hypreal_of_real r) < hypreal_of_real y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1496 |
by (rtac (hypreal_add_commute RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1497 |
by (etac Infinitesimal_add_hrabs_hypreal_of_real_less 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1498 |
by (assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1499 |
qed "Infinitesimal_add_hrabs_hypreal_of_real_less2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1500 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1501 |
Goalw [hypreal_le_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1502 |
"[| xa: Infinitesimal; hypreal_of_real x + xa <= hypreal_of_real y |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1503 |
\ ==> hypreal_of_real x <= hypreal_of_real y"; |
10230 | 1504 |
by (EVERY1[rtac notI, rtac contrapos_np, assume_tac]); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1505 |
by (res_inst_tac [("C","-xa")] hypreal_less_add_right_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1506 |
by (auto_tac (claset() addDs [Infinitesimal_minus_iff RS iffD1] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1507 |
addIs [Infinitesimal_add_hypreal_of_real_less], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1508 |
simpset() addsimps [hypreal_add_assoc])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1509 |
qed "Infinitesimal_add_cancel_hypreal_of_real_le"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1510 |
|
10690 | 1511 |
Goal "[| xa: Infinitesimal; hypreal_of_real x + xa <= hypreal_of_real y |] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1512 |
\ ==> x <= y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1513 |
by (blast_tac (claset() addSIs [hypreal_of_real_le_iff RS iffD2, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1514 |
Infinitesimal_add_cancel_hypreal_of_real_le]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1515 |
qed "Infinitesimal_add_cancel_real_le"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1516 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1517 |
Goalw [hypreal_le_def] |
10720 | 1518 |
"[| xa: Infinitesimal; ya: Infinitesimal; \ |
1519 |
\ hypreal_of_real x + xa <= hypreal_of_real y + ya |] \ |
|
1520 |
\ ==> hypreal_of_real x <= hypreal_of_real y"; |
|
10230 | 1521 |
by (EVERY1[rtac notI, rtac contrapos_np, assume_tac]); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1522 |
by (res_inst_tac [("C","-xa")] hypreal_less_add_right_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1523 |
by (dtac (Infinitesimal_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1524 |
by (dtac Infinitesimal_add 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1525 |
by (auto_tac (claset() addIs [Infinitesimal_add_hypreal_of_real_less], |
10720 | 1526 |
simpset() addsimps [hypreal_add_assoc])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1527 |
qed "hypreal_of_real_le_add_Infininitesimal_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1528 |
|
10690 | 1529 |
Goal "[| xa: Infinitesimal; ya: Infinitesimal; \ |
10720 | 1530 |
\ hypreal_of_real x + xa <= hypreal_of_real y + ya |] \ |
1531 |
\ ==> x <= y"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1532 |
by (blast_tac (claset() addSIs [hypreal_of_real_le_iff RS iffD2, |
10720 | 1533 |
hypreal_of_real_le_add_Infininitesimal_cancel]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1534 |
qed "hypreal_of_real_le_add_Infininitesimal_cancel2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1535 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1536 |
Goal "[| hypreal_of_real x < e; e: Infinitesimal |] ==> hypreal_of_real x <= 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1537 |
by (rtac hypreal_leI 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1538 |
by (dtac Infinitesimal_interval 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1539 |
by (dtac (SReal_hypreal_of_real RS SReal_Infinitesimal_zero) 4); |
10720 | 1540 |
by (auto_tac (claset(), |
1541 |
simpset() addsimps [hypreal_of_real_zero, hypreal_less_not_refl])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1542 |
qed "hypreal_of_real_less_Infinitesimal_le_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1543 |
|
10720 | 1544 |
(*used once, in NSDERIV_inverse*) |
1545 |
Goal "[| h: Infinitesimal; x ~= 0 |] ==> hypreal_of_real x + h ~= 0"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1546 |
by (res_inst_tac [("t","h")] (hypreal_minus_minus RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1547 |
by (rtac (not_sym RS (hypreal_not_eq_minus_iff RS iffD1)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1548 |
by (dtac (Infinitesimal_minus_iff RS iffD1) 1); |
10720 | 1549 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1550 |
qed "Infinitesimal_add_not_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1551 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1552 |
Goal "x*x + y*y : Infinitesimal ==> x*x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1553 |
by (blast_tac (claset() addIs [hypreal_self_le_add_pos, |
10720 | 1554 |
Infinitesimal_interval2, hypreal_le_square]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1555 |
qed "Infinitesimal_square_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1556 |
Addsimps [Infinitesimal_square_cancel]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1557 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1558 |
Goal "x*x + y*y : HFinite ==> x*x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1559 |
by (blast_tac (claset() addIs [hypreal_self_le_add_pos, |
10720 | 1560 |
HFinite_bounded,hypreal_le_square, HFinite_zero]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1561 |
qed "HFinite_square_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1562 |
Addsimps [HFinite_square_cancel]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1563 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1564 |
Goal "x*x + y*y : Infinitesimal ==> y*y : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1565 |
by (rtac Infinitesimal_square_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1566 |
by (rtac (hypreal_add_commute RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1567 |
by (Simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1568 |
qed "Infinitesimal_square_cancel2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1569 |
Addsimps [Infinitesimal_square_cancel2]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1570 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1571 |
Goal "x*x + y*y : HFinite ==> y*y : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1572 |
by (rtac HFinite_square_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1573 |
by (rtac (hypreal_add_commute RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1574 |
by (Simp_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1575 |
qed "HFinite_square_cancel2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1576 |
Addsimps [HFinite_square_cancel2]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1577 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1578 |
Goal "x*x + y*y + z*z : Infinitesimal ==> x*x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1579 |
by (blast_tac (claset() addIs [hypreal_self_le_add_pos2, |
10720 | 1580 |
Infinitesimal_interval2,hypreal_le_square]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1581 |
qed "Infinitesimal_sum_square_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1582 |
Addsimps [Infinitesimal_sum_square_cancel]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1583 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1584 |
Goal "x*x + y*y + z*z : HFinite ==> x*x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1585 |
by (blast_tac (claset() addIs [hypreal_self_le_add_pos2, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1586 |
HFinite_bounded,hypreal_le_square, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1587 |
HFinite_zero]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1588 |
qed "HFinite_sum_square_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1589 |
Addsimps [HFinite_sum_square_cancel]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1590 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1591 |
Goal "y*y + x*x + z*z : Infinitesimal ==> x*x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1592 |
by (rtac Infinitesimal_sum_square_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1593 |
by (asm_full_simp_tac (simpset() addsimps hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1594 |
qed "Infinitesimal_sum_square_cancel2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1595 |
Addsimps [Infinitesimal_sum_square_cancel2]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1596 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1597 |
Goal "y*y + x*x + z*z : HFinite ==> x*x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1598 |
by (rtac HFinite_sum_square_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1599 |
by (asm_full_simp_tac (simpset() addsimps hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1600 |
qed "HFinite_sum_square_cancel2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1601 |
Addsimps [HFinite_sum_square_cancel2]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1602 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1603 |
Goal "z*z + y*y + x*x : Infinitesimal ==> x*x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1604 |
by (rtac Infinitesimal_sum_square_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1605 |
by (asm_full_simp_tac (simpset() addsimps hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1606 |
qed "Infinitesimal_sum_square_cancel3"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1607 |
Addsimps [Infinitesimal_sum_square_cancel3]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1608 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1609 |
Goal "z*z + y*y + x*x : HFinite ==> x*x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1610 |
by (rtac HFinite_sum_square_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1611 |
by (asm_full_simp_tac (simpset() addsimps hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1612 |
qed "HFinite_sum_square_cancel3"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1613 |
Addsimps [HFinite_sum_square_cancel3]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1614 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1615 |
Goal "[| y: monad x; 0 < hypreal_of_real e |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1616 |
\ ==> abs (y + -x) < hypreal_of_real e"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1617 |
by (dtac (mem_monad_inf_close RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1618 |
by (dtac (bex_Infinitesimal_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1619 |
by (auto_tac (claset() addSDs [InfinitesimalD],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1620 |
qed "monad_hrabs_less"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1621 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1622 |
Goal "x: monad (hypreal_of_real a) ==> x: HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1623 |
by (dtac (mem_monad_inf_close RS inf_close_sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1624 |
by (dtac (bex_Infinitesimal_iff2 RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1625 |
by (step_tac (claset() addSDs |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1626 |
[Infinitesimal_subset_HFinite RS subsetD]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1627 |
by (etac (SReal_hypreal_of_real RS (SReal_subset_HFinite |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1628 |
RS subsetD) RS HFinite_add) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1629 |
qed "mem_monad_SReal_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1630 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1631 |
(*------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1632 |
Theorems about standard part |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1633 |
------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1634 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1635 |
Goalw [st_def] "x: HFinite ==> st x @= x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1636 |
by (forward_tac [st_part_Ex] 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1637 |
by (rtac someI2 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1638 |
by (auto_tac (claset() addIs [inf_close_sym],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1639 |
qed "st_inf_close_self"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1640 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1641 |
Goalw [st_def] "x: HFinite ==> st x: SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1642 |
by (forward_tac [st_part_Ex] 1 THEN Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1643 |
by (rtac someI2 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1644 |
by (auto_tac (claset() addIs [inf_close_sym],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1645 |
qed "st_SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1646 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1647 |
Goal "x: HFinite ==> st x: HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1648 |
by (etac (st_SReal RS (SReal_subset_HFinite RS subsetD)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1649 |
qed "st_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1650 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1651 |
Goalw [st_def] "x: SReal ==> st x = x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1652 |
by (rtac some_equality 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1653 |
by (fast_tac (claset() addIs [(SReal_subset_HFinite RS subsetD), |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1654 |
inf_close_refl]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1655 |
by (blast_tac (claset() addDs [SReal_inf_close_iff RS iffD1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1656 |
qed "st_SReal_eq"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1657 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1658 |
(* should be added to simpset *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1659 |
Goal "st (hypreal_of_real x) = hypreal_of_real x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1660 |
by (rtac (SReal_hypreal_of_real RS st_SReal_eq) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1661 |
qed "st_hypreal_of_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1662 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1663 |
Goal "[| x: HFinite; y: HFinite; st x = st y |] ==> x @= y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1664 |
by (auto_tac (claset() addSDs [st_inf_close_self] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1665 |
addSEs [inf_close_trans3],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1666 |
qed "st_eq_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1667 |
|
10720 | 1668 |
Goal "[| x: HFinite; y: HFinite; x @= y |] ==> st x = st y"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1669 |
by (EVERY1 [forward_tac [st_inf_close_self], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1670 |
forw_inst_tac [("x","y")] st_inf_close_self, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1671 |
dtac st_SReal,dtac st_SReal]); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1672 |
by (fast_tac (claset() addEs [inf_close_trans, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1673 |
inf_close_trans2,SReal_inf_close_iff RS iffD1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1674 |
qed "inf_close_st_eq"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1675 |
|
10720 | 1676 |
Goal "[| x: HFinite; y: HFinite|] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1677 |
\ ==> (x @= y) = (st x = st y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1678 |
by (blast_tac (claset() addIs [inf_close_st_eq, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1679 |
st_eq_inf_close]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1680 |
qed "st_eq_inf_close_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1681 |
|
10230 | 1682 |
Goal "[| x: SReal; e: Infinitesimal |] ==> st(x + e) = x"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1683 |
by (forward_tac [st_SReal_eq RS subst] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1684 |
by (assume_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1685 |
by (forward_tac [SReal_subset_HFinite RS subsetD] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1686 |
by (forward_tac [Infinitesimal_subset_HFinite RS subsetD] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1687 |
by (dtac st_SReal_eq 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1688 |
by (rtac inf_close_st_eq 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1689 |
by (auto_tac (claset() addIs [HFinite_add], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1690 |
simpset() addsimps [Infinitesimal_add_inf_close_self |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1691 |
RS inf_close_sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1692 |
qed "st_Infinitesimal_add_SReal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1693 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1694 |
Goal "[| x: SReal; e: Infinitesimal |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1695 |
\ ==> st(e + x) = x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1696 |
by (rtac (hypreal_add_commute RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1697 |
by (blast_tac (claset() addSIs [st_Infinitesimal_add_SReal]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1698 |
qed "st_Infinitesimal_add_SReal2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1699 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1700 |
Goal "x: HFinite ==> \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1701 |
\ EX e: Infinitesimal. x = st(x) + e"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1702 |
by (blast_tac (claset() addSDs [(st_inf_close_self RS |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1703 |
inf_close_sym),bex_Infinitesimal_iff2 RS iffD2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1704 |
qed "HFinite_st_Infinitesimal_add"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1705 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1706 |
Goal "[| x: HFinite; y: HFinite |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1707 |
\ ==> st (x + y) = st(x) + st(y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1708 |
by (forward_tac [HFinite_st_Infinitesimal_add] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1709 |
by (forw_inst_tac [("x","y")] HFinite_st_Infinitesimal_add 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1710 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1711 |
by (subgoal_tac "st (x + y) = st ((st x + e) + (st y + ea))" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1712 |
by (dtac sym 2 THEN dtac sym 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1713 |
by (Asm_full_simp_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1714 |
by (asm_simp_tac (simpset() addsimps hypreal_add_ac) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1715 |
by (REPEAT(dtac st_SReal 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1716 |
by (dtac SReal_add 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1717 |
by (dtac Infinitesimal_add 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1718 |
by (rtac (hypreal_add_assoc RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1719 |
by (blast_tac (claset() addSIs [st_Infinitesimal_add_SReal2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1720 |
qed "st_add"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1721 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1722 |
Goal "st 0 = 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1723 |
by (rtac (SReal_zero RS st_SReal_eq) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1724 |
qed "st_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1725 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1726 |
Goal "st 1hr = 1hr"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1727 |
by (rtac (SReal_one RS st_SReal_eq) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1728 |
qed "st_one"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1729 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1730 |
Addsimps [st_zero,st_one]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1731 |
|
10690 | 1732 |
Goal "y: HFinite ==> st(-y) = -st(y)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1733 |
by (forward_tac [HFinite_minus_iff RS iffD1] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1734 |
by (rtac hypreal_add_minus_eq_minus 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1735 |
by (dtac (st_add RS sym) 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1736 |
by (auto_tac (claset(),simpset() addsimps hypreal_add_ac)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1737 |
qed "st_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1738 |
|
10230 | 1739 |
Goal "[| x: HFinite; y: HFinite |] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1740 |
\ ==> st (x + -y) = st(x) + -st(y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1741 |
by (forw_inst_tac [("y1","y")] (st_minus RS sym) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1742 |
by (dres_inst_tac [("x1","y")] (HFinite_minus_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1743 |
by (asm_simp_tac (simpset() addsimps [st_add]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1744 |
qed "st_add_minus"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1745 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1746 |
(* lemma *) |
10230 | 1747 |
Goal "[| x: HFinite; y: HFinite; \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1748 |
\ e: Infinitesimal; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1749 |
\ ea : Infinitesimal \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1750 |
\ |] ==> e*y + x*ea + e*ea: Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1751 |
by (forw_inst_tac [("x","e"),("y","y")] Infinitesimal_HFinite_mult 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1752 |
by (forw_inst_tac [("x","ea"),("y","x")] Infinitesimal_HFinite_mult 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1753 |
by (dtac Infinitesimal_mult 3); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1754 |
by (auto_tac (claset() addIs [Infinitesimal_add], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1755 |
simpset() addsimps hypreal_add_ac @ hypreal_mult_ac)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1756 |
qed "lemma_st_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1757 |
|
10230 | 1758 |
Goal "[| x: HFinite; y: HFinite |] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1759 |
\ ==> st (x * y) = st(x) * st(y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1760 |
by (forward_tac [HFinite_st_Infinitesimal_add] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1761 |
by (forw_inst_tac [("x","y")] HFinite_st_Infinitesimal_add 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1762 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1763 |
by (subgoal_tac "st (x * y) = st ((st x + e) * (st y + ea))" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1764 |
by (dtac sym 2 THEN dtac sym 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1765 |
by (Asm_full_simp_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1766 |
by (thin_tac "x = st x + e" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1767 |
by (thin_tac "y = st y + ea" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1768 |
by (asm_full_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1769 |
[hypreal_add_mult_distrib,hypreal_add_mult_distrib2]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1770 |
by (REPEAT(dtac st_SReal 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1771 |
by (full_simp_tac (simpset() addsimps [hypreal_add_assoc]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1772 |
by (rtac st_Infinitesimal_add_SReal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1773 |
by (blast_tac (claset() addSIs [SReal_mult]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1774 |
by (REPEAT(dtac (SReal_subset_HFinite RS subsetD) 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1775 |
by (rtac (hypreal_add_assoc RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1776 |
by (blast_tac (claset() addSIs [lemma_st_mult]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1777 |
qed "st_mult"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1778 |
|
10720 | 1779 |
Goal "st(x) ~= 0 ==> x ~=0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1780 |
by (fast_tac (claset() addIs [st_zero]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1781 |
qed "st_not_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1782 |
|
10230 | 1783 |
Goal "x: Infinitesimal ==> st x = 0"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1784 |
by (rtac (st_zero RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1785 |
by (rtac inf_close_st_eq 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1786 |
by (auto_tac (claset() addIs [Infinitesimal_subset_HFinite |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1787 |
RS subsetD],simpset() addsimps [mem_infmal_iff RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1788 |
qed "st_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1789 |
|
10720 | 1790 |
Goal "st(x) ~= 0 ==> x ~: Infinitesimal"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1791 |
by (fast_tac (claset() addIs [st_Infinitesimal]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1792 |
qed "st_not_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1793 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1794 |
val [prem1,prem2] = |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1795 |
goal thy "[| x: HFinite; st x ~= 0 |] \ |
10607 | 1796 |
\ ==> st(inverse x) = inverse (st x)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1797 |
by (rtac ((prem2 RS hypreal_mult_left_cancel) RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1798 |
by (auto_tac (claset(),simpset() addsimps [st_not_zero, |
10607 | 1799 |
st_mult RS sym,prem2,st_not_Infinitesimal,HFinite_inverse,prem1])); |
1800 |
qed "st_inverse"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1801 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1802 |
val [prem1,prem2,prem3] = |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1803 |
goal thy "[| x: HFinite; y: HFinite; st y ~= 0 |] \ |
10607 | 1804 |
\ ==> st(x * inverse y) = (st x) * inverse (st y)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1805 |
by (auto_tac (claset(),simpset() addsimps [st_not_zero,prem3, |
10607 | 1806 |
st_mult,prem2,st_not_Infinitesimal,HFinite_inverse,prem1,st_inverse])); |
1807 |
qed "st_mult_inverse"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1808 |
|
10230 | 1809 |
Goal "x: HFinite ==> st(st(x)) = st(x)"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1810 |
by (blast_tac (claset() addIs [st_HFinite, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1811 |
st_inf_close_self,inf_close_st_eq]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1812 |
qed "st_idempotent"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1813 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1814 |
(*** lemmas ***) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1815 |
Goal "[| x: HFinite; y: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1816 |
\ xa: Infinitesimal; st x < st y \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1817 |
\ |] ==> st x + xa < st y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1818 |
by (REPEAT(dtac st_SReal 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1819 |
by (auto_tac (claset() addSIs |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1820 |
[Infinitesimal_add_hypreal_of_real_less], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1821 |
simpset() addsimps [SReal_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1822 |
qed "Infinitesimal_add_st_less"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1823 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1824 |
Goalw [hypreal_le_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1825 |
"[| x: HFinite; y: HFinite; \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1826 |
\ xa: Infinitesimal; st x <= st y + xa\ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1827 |
\ |] ==> st x <= st y"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1828 |
by (auto_tac (claset() addDs [Infinitesimal_add_st_less], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1829 |
simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1830 |
qed "Infinitesimal_add_st_le_cancel"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1831 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1832 |
Goal "[| x: HFinite; y: HFinite; x <= y |] \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1833 |
\ ==> st(x) <= st(y)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1834 |
by (forward_tac [HFinite_st_Infinitesimal_add] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1835 |
by (rotate_tac 1 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1836 |
by (forward_tac [HFinite_st_Infinitesimal_add] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1837 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1838 |
by (rtac Infinitesimal_add_st_le_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1839 |
by (res_inst_tac [("x","ea"),("y","e")] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1840 |
Infinitesimal_add_minus 3); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1841 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1842 |
[hypreal_add_assoc RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1843 |
by (res_inst_tac [("C","e")] hypreal_le_add_right_cancel 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1844 |
by (asm_full_simp_tac (simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1845 |
[hypreal_add_assoc]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1846 |
qed "st_le"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1847 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1848 |
Goal "[| x: HFinite; 0 <= x |] ==> 0 <= st x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1849 |
by (rtac (st_zero RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1850 |
by (auto_tac (claset() addIs [st_le],simpset() |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1851 |
delsimps [st_zero])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1852 |
qed "st_zero_le"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1853 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1854 |
Goal "[| x: HFinite; x <= 0 |] ==> st x <= 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1855 |
by (rtac (st_zero RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1856 |
by (auto_tac (claset() addIs [st_le],simpset() |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1857 |
delsimps [st_zero])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1858 |
qed "st_zero_ge"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1859 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1860 |
Goal "x: HFinite ==> abs(st x) = st(abs x)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1861 |
by (case_tac "0 <= x" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1862 |
by (auto_tac (claset() addSDs [not_hypreal_leE, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1863 |
hypreal_less_imp_le],simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1864 |
[st_zero_le,hrabs_eqI1, hrabs_minus_eqI1, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1865 |
st_zero_ge,st_minus])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1866 |
qed "st_hrabs"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1867 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1868 |
(*-------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1869 |
Alternative definitions for HFinite using Free ultrafilter |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1870 |
--------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1871 |
|
10230 | 1872 |
Goal "[| X: Rep_hypreal x; Y: Rep_hypreal x |] \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1873 |
\ ==> {n. X n = Y n} : FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1874 |
by (res_inst_tac [("z","x")] eq_Abs_hypreal 1); |
10712 | 1875 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1876 |
by (Ultra_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1877 |
qed "FreeUltrafilterNat_Rep_hypreal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1878 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1879 |
Goal "{n. Yb n < Y n} Int {n. -y = Yb n} <= {n. -y < Y n}"; |
10712 | 1880 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1881 |
qed "lemma_free1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1882 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1883 |
Goal "{n. Xa n < Yc n} Int {n. y = Yc n} <= {n. Xa n < y}"; |
10712 | 1884 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1885 |
qed "lemma_free2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1886 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1887 |
Goalw [HFinite_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1888 |
"x : HFinite ==> EX X: Rep_hypreal x. \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1889 |
\ EX u. {n. abs (X n) < u}: FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1890 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1891 |
[hrabs_interval_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1892 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1893 |
[hypreal_less_def,SReal_iff,hypreal_minus, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1894 |
hypreal_of_real_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1895 |
by (dtac FreeUltrafilterNat_Rep_hypreal 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1896 |
by (res_inst_tac [("x","Y")] bexI 1 THEN assume_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1897 |
by (res_inst_tac [("x","y")] exI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1898 |
by (Ultra_tac 1 THEN arith_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1899 |
qed "HFinite_FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1900 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1901 |
Goalw [HFinite_def] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1902 |
"EX X: Rep_hypreal x. \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1903 |
\ EX u. {n. abs (X n) < u}: FreeUltrafilterNat\ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1904 |
\ ==> x : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1905 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1906 |
[hrabs_interval_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1907 |
by (res_inst_tac [("x","hypreal_of_real u")] bexI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1908 |
by (auto_tac (claset() addSIs [exI],simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1909 |
[hypreal_less_def,SReal_iff,hypreal_minus, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1910 |
hypreal_of_real_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1911 |
by (ALLGOALS(Ultra_tac THEN' arith_tac)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1912 |
qed "FreeUltrafilterNat_HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1913 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1914 |
Goal "(x : HFinite) = (EX X: Rep_hypreal x. \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1915 |
\ EX u. {n. abs (X n) < u}: FreeUltrafilterNat)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1916 |
by (blast_tac (claset() addSIs [HFinite_FreeUltrafilterNat, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1917 |
FreeUltrafilterNat_HFinite]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1918 |
qed "HFinite_FreeUltrafilterNat_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1919 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1920 |
(*-------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1921 |
Alternative definitions for HInfinite using Free ultrafilter |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1922 |
--------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1923 |
Goal "- {n. (u::real) < abs (xa n)} = {n. abs (xa n) <= u}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1924 |
by Auto_tac; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1925 |
qed "lemma_Compl_eq"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1926 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1927 |
Goal "- {n. abs (xa n) < (u::real)} = {n. u <= abs (xa n)}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1928 |
by Auto_tac; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1929 |
qed "lemma_Compl_eq2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1930 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1931 |
Goal "{n. abs (xa n) <= (u::real)} Int {n. u <= abs (xa n)} \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1932 |
\ = {n. abs(xa n) = u}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1933 |
by Auto_tac; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1934 |
qed "lemma_Int_eq1"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1935 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1936 |
Goal "{n. abs (xa n) = u} <= {n. abs (xa n) < u + (#1::real)}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1937 |
by Auto_tac; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1938 |
qed "lemma_FreeUltrafilterNat_one"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1939 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1940 |
(*------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1941 |
Exclude this type of sets from free |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1942 |
ultrafilter for Infinite numbers! |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1943 |
-------------------------------------*) |
10230 | 1944 |
Goal "[| xa: Rep_hypreal x; \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1945 |
\ {n. abs (xa n) = u} : FreeUltrafilterNat \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1946 |
\ |] ==> x: HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1947 |
by (rtac FreeUltrafilterNat_HFinite 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1948 |
by (res_inst_tac [("x","xa")] bexI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1949 |
by (res_inst_tac [("x","u + #1")] exI 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1950 |
by (Ultra_tac 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1951 |
qed "FreeUltrafilterNat_const_Finite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1952 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1953 |
val [prem] = goal thy "x : HInfinite ==> EX X: Rep_hypreal x. \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1954 |
\ ALL u. {n. u < abs (X n)}: FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1955 |
by (cut_facts_tac [(prem RS (HInfinite_HFinite_iff RS iffD1))] 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1956 |
by (cut_inst_tac [("x","x")] Rep_hypreal_nonempty 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1957 |
by (auto_tac (claset(),simpset() delsimps [Rep_hypreal_nonempty] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1958 |
addsimps [HFinite_FreeUltrafilterNat_iff,Bex_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1959 |
by (REPEAT(dtac spec 1)); |
10712 | 1960 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1961 |
by (dres_inst_tac [("x","u")] spec 1 THEN |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1962 |
REPEAT(dtac FreeUltrafilterNat_Compl_mem 1)); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1963 |
by (dtac FreeUltrafilterNat_Int 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1964 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1965 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1966 |
by (asm_full_simp_tac (simpset() addsimps [lemma_Compl_eq, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1967 |
lemma_Compl_eq2,lemma_Int_eq1]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1968 |
by (auto_tac (claset() addDs [FreeUltrafilterNat_const_Finite], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1969 |
simpset() addsimps [(prem RS (HInfinite_HFinite_iff RS iffD1))])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1970 |
qed "HInfinite_FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1971 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1972 |
(* yet more lemmas! *) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1973 |
Goal "{n. abs (Xa n) < u} Int {n. X n = Xa n} \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1974 |
\ <= {n. abs (X n) < (u::real)}"; |
10712 | 1975 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1976 |
qed "lemma_Int_HI"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1977 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1978 |
Goal "{n. u < abs (X n)} Int {n. abs (X n) < (u::real)} = {}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1979 |
by (auto_tac (claset() addIs [real_less_asym],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1980 |
qed "lemma_Int_HIa"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1981 |
|
10230 | 1982 |
Goal "EX X: Rep_hypreal x. ALL u. \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1983 |
\ {n. u < abs (X n)}: FreeUltrafilterNat\ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1984 |
\ ==> x : HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1985 |
by (rtac (HInfinite_HFinite_iff RS iffD2) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1986 |
by (Step_tac 1 THEN dtac HFinite_FreeUltrafilterNat 1); |
10712 | 1987 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1988 |
by (dres_inst_tac [("x","u")] spec 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1989 |
by (dtac FreeUltrafilterNat_Rep_hypreal 1 THEN assume_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1990 |
by (dres_inst_tac [("Y","{n. X n = Xa n}")] FreeUltrafilterNat_Int 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1991 |
by (dtac (lemma_Int_HI RSN (2,FreeUltrafilterNat_subset)) 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1992 |
by (dres_inst_tac [("Y","{n. abs (X n) < u}")] FreeUltrafilterNat_Int 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1993 |
by (auto_tac (claset(),simpset() addsimps [lemma_Int_HIa, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1994 |
FreeUltrafilterNat_empty])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1995 |
qed "FreeUltrafilterNat_HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1996 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1997 |
Goal "(x : HInfinite) = (EX X: Rep_hypreal x. \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1998 |
\ ALL u. {n. u < abs (X n)}: FreeUltrafilterNat)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
1999 |
by (blast_tac (claset() addSIs [HInfinite_FreeUltrafilterNat, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2000 |
FreeUltrafilterNat_HInfinite]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2001 |
qed "HInfinite_FreeUltrafilterNat_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2002 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2003 |
(*-------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2004 |
Alternative definitions for Infinitesimal using Free ultrafilter |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2005 |
--------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2006 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2007 |
Goal "{n. - u < Yd n} Int {n. xa n = Yd n} <= {n. -u < xa n}"; |
10712 | 2008 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2009 |
qed "lemma_free4"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2010 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2011 |
Goal "{n. Yb n < u} Int {n. xa n = Yb n} <= {n. xa n < u}"; |
10712 | 2012 |
by Auto_tac; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2013 |
qed "lemma_free5"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2014 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2015 |
Goalw [Infinitesimal_def] |
10230 | 2016 |
"x : Infinitesimal ==> EX X: Rep_hypreal x. \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2017 |
\ ALL u. 0 < u --> {n. abs (X n) < u}: FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2018 |
by (auto_tac (claset(),simpset() addsimps [hrabs_interval_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2019 |
by (res_inst_tac [("z","x")] eq_Abs_hypreal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2020 |
by (EVERY[Auto_tac, rtac bexI 1, rtac lemma_hyprel_refl 2, Step_tac 1]); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2021 |
by (dtac (hypreal_of_real_less_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2022 |
by (dres_inst_tac [("x","hypreal_of_real u")] bspec 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2023 |
by (auto_tac (claset(),simpset() addsimps [hypreal_of_real_zero])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2024 |
by (thin_tac "0 < hypreal_of_real u" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2025 |
by (auto_tac (claset(),simpset() addsimps [hypreal_less_def, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2026 |
hypreal_minus,hypreal_of_real_def,hypreal_of_real_zero])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2027 |
by (Ultra_tac 1 THEN arith_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2028 |
qed "Infinitesimal_FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2029 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2030 |
Goalw [Infinitesimal_def] |
10230 | 2031 |
"EX X: Rep_hypreal x. \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2032 |
\ ALL u. 0 < u --> \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2033 |
\ {n. abs (X n) < u}: FreeUltrafilterNat \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2034 |
\ ==> x : Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2035 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2036 |
[hrabs_interval_iff,abs_interval_iff])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2037 |
by (auto_tac (claset(),simpset() addsimps [SReal_iff, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2038 |
hypreal_of_real_zero RS sym])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2039 |
by (auto_tac (claset() addSIs [exI] |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2040 |
addIs [FreeUltrafilterNat_subset], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2041 |
simpset() addsimps [hypreal_less_def, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2042 |
hypreal_minus,hypreal_of_real_def])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2043 |
qed "FreeUltrafilterNat_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2044 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2045 |
Goal "(x : Infinitesimal) = (EX X: Rep_hypreal x. \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2046 |
\ ALL u. 0 < u --> {n. abs (X n) < u}: FreeUltrafilterNat)"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2047 |
by (blast_tac (claset() addSIs [Infinitesimal_FreeUltrafilterNat, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2048 |
FreeUltrafilterNat_Infinitesimal]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2049 |
qed "Infinitesimal_FreeUltrafilterNat_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2050 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2051 |
(*------------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2052 |
Infinitesimals as smaller than 1/n for all n::nat (> 0) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2053 |
------------------------------------------------------------------------*) |
10607 | 2054 |
Goal "(ALL r. 0 < r --> x < r) = (ALL n. x < inverse(real_of_posnat n))"; |
10648 | 2055 |
by (auto_tac (claset(), |
2056 |
simpset() addsimps [rename_numerals real_of_posnat_gt_zero])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2057 |
by (blast_tac (claset() addSDs [rename_numerals reals_Archimedean] |
10648 | 2058 |
addIs [order_less_trans]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2059 |
qed "lemma_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2060 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2061 |
Goal "(ALL r: SReal. 0 < r --> x < r) = \ |
10607 | 2062 |
\ (ALL n. x < inverse(hypreal_of_posnat n))"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2063 |
by (Step_tac 1); |
10720 | 2064 |
by (dres_inst_tac [("x","inverse (hypreal_of_real(real_of_posnat n))")] |
2065 |
bspec 1); |
|
2066 |
by (full_simp_tac (simpset() addsimps [SReal_inverse]) 1); |
|
10607 | 2067 |
by (rtac (real_of_posnat_gt_zero RS real_inverse_gt_zero RS |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2068 |
(hypreal_of_real_less_iff RS iffD1) RSN(2,impE)) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2069 |
by (assume_tac 2); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2070 |
by (asm_full_simp_tac (simpset() addsimps |
10720 | 2071 |
[rename_numerals real_of_posnat_gt_zero, hypreal_of_real_zero, |
10648 | 2072 |
hypreal_of_real_of_posnat]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2073 |
by (auto_tac (claset() addSDs [reals_Archimedean], |
10648 | 2074 |
simpset() addsimps [SReal_iff,hypreal_of_real_zero RS sym])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2075 |
by (dtac (hypreal_of_real_less_iff RS iffD1) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2076 |
by (asm_full_simp_tac (simpset() addsimps |
10720 | 2077 |
[rename_numerals real_of_posnat_gt_zero,hypreal_of_real_of_posnat])1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2078 |
by (blast_tac (claset() addIs [hypreal_less_trans]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2079 |
qed "lemma_Infinitesimal2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2080 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2081 |
Goalw [Infinitesimal_def] |
10720 | 2082 |
"Infinitesimal = {x. ALL n. abs x < inverse (hypreal_of_posnat n)}"; |
2083 |
by (auto_tac (claset(), simpset() addsimps [lemma_Infinitesimal2])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2084 |
qed "Infinitesimal_hypreal_of_posnat_iff"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2085 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2086 |
(*----------------------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2087 |
Actual proof that omega (whr) is an infinite number and |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2088 |
hence that epsilon (ehr) is an infinitesimal number. |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2089 |
-----------------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2090 |
Goal "{n. n < Suc m} = {n. n < m} Un {n. n = m}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2091 |
by (auto_tac (claset(),simpset() addsimps [less_Suc_eq])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2092 |
qed "Suc_Un_eq"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2093 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2094 |
(*------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2095 |
Prove that any segment is finite and |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2096 |
hence cannot belong to FreeUltrafilterNat |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2097 |
-------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2098 |
Goal "finite {n::nat. n < m}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2099 |
by (nat_ind_tac "m" 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2100 |
by (auto_tac (claset(),simpset() addsimps [Suc_Un_eq])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2101 |
qed "finite_nat_segment"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2102 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2103 |
Goal "finite {n::nat. real_of_posnat n < real_of_posnat m}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2104 |
by (auto_tac (claset() addIs [finite_nat_segment],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2105 |
qed "finite_real_of_posnat_segment"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2106 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2107 |
Goal "finite {n. real_of_posnat n < u}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2108 |
by (cut_inst_tac [("x","u")] reals_Archimedean2 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2109 |
by (Step_tac 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2110 |
by (rtac (finite_real_of_posnat_segment RSN (2,finite_subset)) 1); |
10648 | 2111 |
by (auto_tac (claset() addDs [order_less_trans],simpset())); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2112 |
qed "finite_real_of_posnat_less_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2113 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2114 |
Goal "{n. real_of_posnat n <= u} = \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2115 |
\ {n. real_of_posnat n < u} Un {n. u = real_of_posnat n}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2116 |
by (auto_tac (claset() addDs [real_le_imp_less_or_eq], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2117 |
simpset() addsimps [real_le_refl,real_less_imp_le])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2118 |
qed "lemma_real_le_Un_eq"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2119 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2120 |
Goal "finite {n. real_of_posnat n <= u}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2121 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2122 |
[lemma_real_le_Un_eq,lemma_finite_omega_set, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2123 |
finite_real_of_posnat_less_real])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2124 |
qed "finite_real_of_posnat_le_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2125 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2126 |
Goal "finite {n. abs(real_of_posnat n) <= u}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2127 |
by (full_simp_tac (simpset() addsimps [rename_numerals |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2128 |
real_of_posnat_gt_zero,abs_eqI2, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2129 |
finite_real_of_posnat_le_real]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2130 |
qed "finite_rabs_real_of_posnat_le_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2131 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2132 |
Goal "{n. abs(real_of_posnat n) <= u} ~: FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2133 |
by (blast_tac (claset() addSIs [FreeUltrafilterNat_finite, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2134 |
finite_rabs_real_of_posnat_le_real]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2135 |
qed "rabs_real_of_posnat_le_real_FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2136 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2137 |
Goal "{n. u < real_of_posnat n} : FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2138 |
by (rtac ccontr 1 THEN dtac FreeUltrafilterNat_Compl_mem 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2139 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2140 |
[CLAIM_SIMP "- {n. u < real_of_posnat n} = \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2141 |
\ {n. real_of_posnat n <= u}" |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2142 |
[real_le_def],finite_real_of_posnat_le_real |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2143 |
RS FreeUltrafilterNat_finite])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2144 |
qed "FreeUltrafilterNat_nat_gt_real"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2145 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2146 |
(*-------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2147 |
The complement of {n. abs(real_of_posnat n) <= u} = |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2148 |
{n. u < abs (real_of_posnat n)} is in FreeUltrafilterNat |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2149 |
by property of (free) ultrafilters |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2150 |
--------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2151 |
Goal "- {n. abs (real_of_posnat n) <= u} = \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2152 |
\ {n. u < abs (real_of_posnat n)}"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2153 |
by (auto_tac (claset() addSDs [real_le_less_trans], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2154 |
simpset() addsimps [not_real_leE,real_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2155 |
val lemma = result(); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2156 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2157 |
Goal "{n. u < abs (real_of_posnat n)} : FreeUltrafilterNat"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2158 |
by (cut_inst_tac [("u","u")] rabs_real_of_posnat_le_real_FreeUltrafilterNat 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2159 |
by (auto_tac (claset() addDs [FreeUltrafilterNat_Compl_mem], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2160 |
simpset() addsimps [lemma])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2161 |
qed "FreeUltrafilterNat_omega"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2162 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2163 |
(*----------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2164 |
Omega is a member of HInfinite |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2165 |
-----------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2166 |
Goalw [omega_def] "whr: HInfinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2167 |
by (auto_tac (claset() addSIs [FreeUltrafilterNat_HInfinite, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2168 |
lemma_hyprel_refl,FreeUltrafilterNat_omega],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2169 |
qed "HInfinite_omega"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2170 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2171 |
(*----------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2172 |
Epsilon is a member of Infinitesimal |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2173 |
-----------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2174 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2175 |
Goal "ehr : Infinitesimal"; |
10607 | 2176 |
by (auto_tac (claset() addSIs [HInfinite_inverse_Infinitesimal,HInfinite_omega], |
2177 |
simpset() addsimps [hypreal_epsilon_inverse_omega])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2178 |
qed "Infinitesimal_epsilon"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2179 |
Addsimps [Infinitesimal_epsilon]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2180 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2181 |
Goal "ehr : HFinite"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2182 |
by (auto_tac (claset() addIs [Infinitesimal_subset_HFinite RS subsetD], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2183 |
simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2184 |
qed "HFinite_epsilon"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2185 |
Addsimps [HFinite_epsilon]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2186 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2187 |
Goal "ehr @= 0"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2188 |
by (simp_tac (simpset() addsimps [mem_infmal_iff RS sym]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2189 |
qed "epsilon_inf_close_zero"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2190 |
Addsimps [epsilon_inf_close_zero]; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2191 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2192 |
(*------------------------------------------------------------------------ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2193 |
Needed for proof that we define a hyperreal [<X(n)] @= hypreal_of_real a given |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2194 |
that ALL n. |X n - a| < 1/n. Used in proof of NSLIM => LIM. |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2195 |
-----------------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2196 |
|
10690 | 2197 |
Goal "0 < u ==> finite {n. u < inverse(real_of_posnat n)}"; |
10607 | 2198 |
by (asm_simp_tac (simpset() addsimps [real_of_posnat_less_inverse_iff]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2199 |
by (rtac finite_real_of_posnat_less_real 1); |
10607 | 2200 |
qed "finite_inverse_real_of_posnat_gt_real"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2201 |
|
10607 | 2202 |
Goal "{n. u <= inverse(real_of_posnat n)} = \ |
2203 |
\ {n. u < inverse(real_of_posnat n)} Un {n. u = inverse(real_of_posnat n)}"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2204 |
by (auto_tac (claset() addDs [real_le_imp_less_or_eq], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2205 |
simpset() addsimps [real_le_refl,real_less_imp_le])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2206 |
qed "lemma_real_le_Un_eq2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2207 |
|
10690 | 2208 |
Goal "0 < u ==> finite {n::nat. u = inverse(real_of_posnat n)}"; |
10607 | 2209 |
by (asm_simp_tac (simpset() addsimps [real_of_posnat_inverse_eq_iff]) 1); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2210 |
by (auto_tac (claset() addIs [lemma_finite_omega_set RSN |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2211 |
(2,finite_subset)],simpset())); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2212 |
qed "lemma_finite_omega_set2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2213 |
|
10690 | 2214 |
Goal "0 < u ==> finite {n. u <= inverse(real_of_posnat n)}"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2215 |
by (auto_tac (claset(),simpset() addsimps |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2216 |
[lemma_real_le_Un_eq2,lemma_finite_omega_set2, |
10607 | 2217 |
finite_inverse_real_of_posnat_gt_real])); |
2218 |
qed "finite_inverse_real_of_posnat_ge_real"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2219 |
|
10690 | 2220 |
Goal "0 < u ==> \ |
10607 | 2221 |
\ {n. u <= inverse(real_of_posnat n)} ~: FreeUltrafilterNat"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2222 |
by (blast_tac (claset() addSIs [FreeUltrafilterNat_finite, |
10607 | 2223 |
finite_inverse_real_of_posnat_ge_real]) 1); |
2224 |
qed "inverse_real_of_posnat_ge_real_FreeUltrafilterNat"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2225 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2226 |
(*-------------------------------------------------------------- |
10607 | 2227 |
The complement of {n. u <= inverse(real_of_posnat n)} = |
2228 |
{n. inverse(real_of_posnat n) < u} is in FreeUltrafilterNat |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2229 |
by property of (free) ultrafilters |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2230 |
--------------------------------------------------------------*) |
10607 | 2231 |
Goal "- {n. u <= inverse(real_of_posnat n)} = \ |
2232 |
\ {n. inverse(real_of_posnat n) < u}"; |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2233 |
by (auto_tac (claset() addSDs [real_le_less_trans], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2234 |
simpset() addsimps [not_real_leE,real_less_not_refl])); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2235 |
val lemma = result(); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2236 |
|
10690 | 2237 |
Goal "0 < u ==> \ |
10607 | 2238 |
\ {n. inverse(real_of_posnat n) < u} : FreeUltrafilterNat"; |
2239 |
by (cut_inst_tac [("u","u")] inverse_real_of_posnat_ge_real_FreeUltrafilterNat 1); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2240 |
by (auto_tac (claset() addDs [FreeUltrafilterNat_Compl_mem], |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2241 |
simpset() addsimps [lemma])); |
10607 | 2242 |
qed "FreeUltrafilterNat_inverse_real_of_posnat"; |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2243 |
|
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2244 |
(*-------------------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2245 |
Example where we get a hyperreal from a real sequence |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2246 |
for which a particular property holds. The theorem is |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2247 |
used in proofs about equivalence of nonstandard and |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2248 |
standard neighbourhoods. Also used for equivalence of |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2249 |
nonstandard ans standard definitions of pointwise |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2250 |
limit (the theorem was previously in REALTOPOS.thy). |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2251 |
-------------------------------------------------------------*) |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2252 |
(*----------------------------------------------------- |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2253 |
|X(n) - x| < 1/n ==> [<X n>] - hypreal_of_real x|: Infinitesimal |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2254 |
-----------------------------------------------------*) |
10607 | 2255 |
Goal "ALL n. abs(X n + -x) < inverse(real_of_posnat n) \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2256 |
\ ==> Abs_hypreal(hyprel^^{X}) + -hypreal_of_real x : Infinitesimal"; |
10715
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2257 |
by (auto_tac (claset() addSIs [bexI] |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2258 |
addDs [rename_numerals FreeUltrafilterNat_inverse_real_of_posnat, |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2259 |
FreeUltrafilterNat_all,FreeUltrafilterNat_Int] |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2260 |
addIs [order_less_trans, FreeUltrafilterNat_subset], |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2261 |
simpset() addsimps [hypreal_minus, |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2262 |
hypreal_of_real_def,hypreal_add, |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2263 |
Infinitesimal_FreeUltrafilterNat_iff,hypreal_inverse, |
c838477b5c18
more tidying, especially to rationalize the simprules
paulson
parents:
10712
diff
changeset
|
2264 |
hypreal_of_real_of_posnat])); |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2265 |
qed "real_seq_to_hypreal_Infinitesimal"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2266 |
|
10607 | 2267 |
Goal "ALL n. abs(X n + -x) < inverse(real_of_posnat n) \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2268 |
\ ==> Abs_hypreal(hyprel^^{X}) @= hypreal_of_real x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2269 |
by (rtac (inf_close_minus_iff RS ssubst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2270 |
by (rtac (mem_infmal_iff RS subst) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2271 |
by (etac real_seq_to_hypreal_Infinitesimal 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2272 |
qed "real_seq_to_hypreal_inf_close"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2273 |
|
10607 | 2274 |
Goal "ALL n. abs(x + -X n) < inverse(real_of_posnat n) \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2275 |
\ ==> Abs_hypreal(hyprel^^{X}) @= hypreal_of_real x"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2276 |
by (asm_full_simp_tac (simpset() addsimps [abs_minus_add_cancel, |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2277 |
real_seq_to_hypreal_inf_close]) 1); |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2278 |
qed "real_seq_to_hypreal_inf_close2"; |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2279 |
|
10607 | 2280 |
Goal "ALL n. abs(X n + -Y n) < inverse(real_of_posnat n) \ |
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2281 |
\ ==> Abs_hypreal(hyprel^^{X}) + \ |
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2282 |
\ -Abs_hypreal(hyprel^^{Y}) : Infinitesimal"; |
10648 | 2283 |
by (auto_tac (claset() addSIs [bexI] |
2284 |
addDs [rename_numerals |
|
2285 |
FreeUltrafilterNat_inverse_real_of_posnat, |
|
2286 |
FreeUltrafilterNat_all,FreeUltrafilterNat_Int] |
|
2287 |
addIs [order_less_trans, FreeUltrafilterNat_subset], |
|
2288 |
simpset() addsimps |
|
2289 |
[Infinitesimal_FreeUltrafilterNat_iff,hypreal_minus,hypreal_add, |
|
2290 |
hypreal_inverse,hypreal_of_real_of_posnat])); |
|
10045
c76b73e16711
New theories: construction of hypernaturals, nonstandard extensions,
fleuriot
parents:
diff
changeset
|
2291 |
qed "real_seq_to_hypreal_Infinitesimal2"; |