theory Real_ZF_2 imports OrderedField_ZF MetricSpace_ZF
begin
Isabelle/ZF and IsarMathLib do not have a set of real numbers built-in. The Real_ZF and Real_ZF_1 theories provide a construction but here we do not use it in any way and we just assume that we have a model of real numbers (i.e. a completely ordered field) as defined in the Ordered_Field theory. The construction only assures us that objects with the desired properties exist in the ZF world.
Basic notation for real numbers
In this section we define notation that we will use whenever real numbers play a role, i.e. most of mathematics.
The next locale sets up notation for contexts where real numbers are used.
Locale reals
assumes R_are_reals: \( \text{IsAmodelOfReals}(\mathbb{R} ,Add,Mul, ROrd) \)
defines \( 0 \equiv \text{ TheNeutralElement}(\mathbb{R} ,Add) \)
defines \( 1 \equiv \text{ TheNeutralElement}(\mathbb{R} ,Mul) \)
defines \( x \cdot y \equiv Mul\langle x,y\rangle \)
defines \( x + y \equiv Add\langle x,y\rangle \)
defines \( ( - x) \equiv \text{GroupInv}(\mathbb{R} ,Add)(x) \)
defines \( x - y \equiv x + ( - y) \)
defines \( x \leq y \equiv \langle x,y\rangle \in ROrd \)
defines \( x \lt y \equiv x\leq y \wedge x\neq y \)
defines \( \mathbb{R} ^+ \equiv \text{Nonnegative}(\mathbb{R} ,Add, ROrd) \)
defines \( \mathbb{R} _+ \equiv \text{PositiveSet}(\mathbb{R} ,Add, ROrd) \)
defines \( -A \equiv \text{GroupInv}(\mathbb{R} ,Add)(A) \)
defines \( \mathbb{R} _0 \equiv \mathbb{R} -\{ 0 \} \)
defines \( \vert x\vert \equiv \text{AbsoluteValue}(\mathbb{R} ,Add,ROrd)(x) \)
defines \( dist \equiv \{\langle p,\vert \text{fst}(p) - \text{snd}(p)\vert \rangle .\ p \in \mathbb{R} \times \mathbb{R} \} \)
defines \( 2 \equiv 1 + 1 \)
defines \( x^{-1} \equiv \text{GroupInv}(\mathbb{R} _0,\text{restrict}(Mul,\mathbb{R} _0\times \mathbb{R} _0))(x) \)
defines \( x^2 \equiv x\cdot x \)
defines \( f^\circ \equiv \text{OddExtension}(\mathbb{R} ,Add,ROrd,f) \)
defines \( disk(c,r) \equiv \text{Disk}(\mathbb{R} ,dist,ROrd,c,r) \)
The assumtions of the field1 locale (that sets the context for ordered fields) hold in the reals locale
lemma (in reals) field1_is_valid:
shows \( field1(\mathbb{R} , Add, Mul,ROrd) \)proof from R_are_reals show \( \text{IsAring}(\mathbb{R} , Add, Mul) \) and \( Mul \text{ is commutative on } \mathbb{R} \) and \( ROrd \subseteq \mathbb{R} \times \mathbb{R} \) and \( \text{IsLinOrder}(\mathbb{R} , ROrd) \) and \( \forall x y.\ \forall z\in \mathbb{R} .\ \langle x, y\rangle \in ROrd \longrightarrow \langle Add\langle x, z\rangle , Add\langle y, z\rangle \rangle \in ROrd \) and \( \text{Nonnegative}(\mathbb{R} , Add, ROrd) \text{ is closed under } Mul \) and \( \text{ TheNeutralElement}(\mathbb{R} , Add) \neq \text{ TheNeutralElement}(\mathbb{R} , Mul) \) and \( \forall x\in \mathbb{R} .\ x \neq \text{ TheNeutralElement}(\mathbb{R} ,Add) \longrightarrow (\exists y\in \mathbb{R} .\ Mul\langle x, y\rangle = \text{ TheNeutralElement}(\mathbb{R} ,Mul)) \) using IsAmodelOfReals_def , IsAnOrdField_def , IsAnOrdRing_def
qed
We can use theorems proven in the field1 locale in the reals locale. Note that since the the field1 locale is an extension of the ring1 locale, which is an extension of ring0 locale , this makes available also the theorems proven in the ring1 and ring0 locales.
Sublocale reals < field1
using field1_is_valid
The group3 locale from the OrderedGroup_ZF theory defines context for theorems about ordered groups. We can use theorems proven in there in the reals locale as real numbers with addition form an ordered group.
Sublocale reals < group3
unfolding group3_def using OrdRing_ZF_1_L4
Since real numbers with addition form a group we can use the theorems proven in the group0 locale defined in the Group_ZF theory in the reals locale.
Sublocale reals < group0
unfolding group3_def using OrderedGroup_ZF_1_L1
Let's recall basic properties of the real line.
lemma (in reals) basic_props:
shows \( ROrd \text{ is total on } \mathbb{R} \) and \( Add \text{ is commutative on } \mathbb{R} \) using OrdRing_ZF_1_L4(2,3)The distance function dist defined in the reals locale is a metric.
lemma (in reals) dist_is_metric:
shows \( dist : \mathbb{R} \times \mathbb{R} \rightarrow \mathbb{R} ^+ \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = \vert x - y\vert \), \( \forall x\in \mathbb{R} .\ dist\langle x,x\rangle = 0 \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = dist\langle y,x\rangle \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ \forall z\in \mathbb{R} .\ \vert x - z\vert \leq \vert x - y\vert + \vert y - z\vert \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ \forall z\in \mathbb{R} .\ dist\langle x,z\rangle \leq dist\langle x, y\rangle + dist\langle y,z\rangle \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = 0 \longrightarrow x=y \), \( \text{IsApseudoMetric}(dist,\mathbb{R} ,\mathbb{R} ,Add,ROrd) \), \( \text{IsAmetric}(dist,\mathbb{R} ,\mathbb{R} ,Add,ROrd) \)proof show I: \( dist : \mathbb{R} \times \mathbb{R} \rightarrow \mathbb{R} ^+ \) using group_op_closed , inverse_in_group , OrdRing_ZF_1_L4 , OrderedGroup_ZF_3_L3B , ZF_fun_from_total
then show II: \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = \vert x - y\vert \) using ZF_fun_from_tot_val0
then show III: \( \forall x\in \mathbb{R} .\ dist\langle x,x\rangle = 0 \) using group0_2_L6 , OrderedGroup_ZF_3_L2A
{
fix \( x \) \( y \)
assume \( x\in \mathbb{R} \), \( y\in \mathbb{R} \)
then have \( ( - (x - y)) = y - x \) using group0_2_L12
moreover
from \( x\in \mathbb{R} \), \( y\in \mathbb{R} \) have \( \vert - (x - y)\vert =\vert x - y\vert \) using group_op_closed , inverse_in_group , basic_props(1) , OrderedGroup_ZF_3_L7A
ultimately have \( \vert y - x\vert = \vert x - y\vert \)
with \( x\in \mathbb{R} \), \( y\in \mathbb{R} \), II have \( dist\langle x,y\rangle = dist\langle y,x\rangle \)
thus IV: \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = dist\langle y,x\rangle \)
{
fix \( x \) \( y \)
assume \( x\in \mathbb{R} \), \( y\in \mathbb{R} \), \( dist\langle x,y\rangle = 0 \)
with II have \( \vert x - y\vert = 0 \)
with \( x\in \mathbb{R} \), \( y\in \mathbb{R} \) have \( x - y = 0 \) using group_op_closed , inverse_in_group , OrderedGroup_ZF_3_L3D
with \( x\in \mathbb{R} \), \( y\in \mathbb{R} \) have \( x=y \) using group0_2_L11A
thus V: \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = 0 \longrightarrow x=y \)
{
fix \( x \) \( y \) \( z \)
assume \( x\in \mathbb{R} \), \( y\in \mathbb{R} \), \( z\in \mathbb{R} \)
then have \( \vert x - z\vert = \vert (x - y) + (y - z)\vert \) using cancel_middle(5)
with \( x\in \mathbb{R} \), \( y\in \mathbb{R} \), \( z\in \mathbb{R} \) have \( \vert x - z\vert \leq \vert x - y\vert + \vert y - z\vert \) using group_op_closed , inverse_in_group , OrdRing_ZF_1_L4(2,3) , OrdGroup_triangle_ineq
thus \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ \forall z\in \mathbb{R} .\ \vert x - z\vert \leq \vert x - y\vert + \vert y - z\vert \)
with II show \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ \forall z\in \mathbb{R} .\ dist\langle x,z\rangle \leq dist\langle x, y\rangle + dist\langle y,z\rangle \)
with I, III, IV, V show \( \text{IsApseudoMetric}(dist,\mathbb{R} ,\mathbb{R} ,Add,ROrd) \) and \( \text{IsAmetric}(dist,\mathbb{R} ,\mathbb{R} ,Add,ROrd) \) unfolding IsApseudoMetric_def , IsAmetric_def
qed
Real numbers form an ordered loop.
lemma (in reals) reals_loop:
shows \( \text{IsAnOrdLoop}(\mathbb{R} ,Add,ROrd) \)proof have \( \text{IsAloop}(\mathbb{R} ,Add) \) using group_is_loop
moreover
}
ultimately show \( \text{IsAnOrdLoop}(\mathbb{R} ,Add,ROrd) \) unfolding IsAnOrdLoop_def
qed
from R_are_reals have \( ROrd \subseteq \mathbb{R} \times \mathbb{R} \) and \( \text{IsPartOrder}(\mathbb{R} ,ROrd) \) using IsAmodelOfReals_def , IsAnOrdField_def , IsAnOrdRing_def , Order_ZF_1_L2
moreover {
fix \( x \) \( y \) \( z \)
assume A: \( x\in \mathbb{R} \), \( y\in \mathbb{R} \), \( z\in \mathbb{R} \)
then have \( x\leq y \longleftrightarrow x + z \leq y + z \) using ord_transl_inv , ineq_cancel_right
moreover
from A have \( x\leq y \longleftrightarrow z + x \leq z + y \) using ord_transl_inv , OrderedGroup_ZF_1_L5AE
ultimately have \( (x\leq y \longleftrightarrow x + z \leq y + z) \wedge (x\leq y \longleftrightarrow z + x \leq z + y) \)
The assumptions of the pmetric_space locale hold in the reals locale.
lemma (in reals) pmetric_space_valid:
shows \( pmetric\_space(\mathbb{R} ,Add, ROrd,dist,\mathbb{R} ) \) unfolding pmetric_space_def , pmetric_space_axioms_def , loop1_def using reals_loop , dist_is_metric(8)Some properties of the order relation on reals:
lemma (in reals) pos_is_lattice:
shows \( \text{IsLinOrder}(\mathbb{R} ,ROrd) \), \( \text{IsLinOrder}(\mathbb{R} _+,ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \), \( (ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \text{ is a lattice on } \mathbb{R} _+ \)proof show \( \text{IsLinOrder}(\mathbb{R} ,ROrd) \) using OrdRing_ZF_1_L1 unfolding IsAnOrdRing_def
moreover
have \( \mathbb{R} _+ \subseteq \mathbb{R} \) using pos_set_in_gr
ultimately show \( \text{IsLinOrder}(\mathbb{R} _+,ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \) using ord_linear_subset(2)
moreover
qed
have \( (ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \subseteq \mathbb{R} _+\times \mathbb{R} _+ \)
ultimately show \( (ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \text{ is a lattice on } \mathbb{R} _+ \) using lin_is_latt
We define the topology on reals as one consisting of the unions of open disks.
Definition (in reals)
\( \tau _\mathbb{R} \equiv \{\bigcup A.\ A \in Pow(\bigcup c\in \mathbb{R} .\ \{disk(c,r).\ r \in \mathbb{R} _+\})\} \)
Real numbers form a topological space with topology generated by open disks.
theorem (in reals) reals_is_top:
shows \( \tau _\mathbb{R} \text{ is a topology } \) and \( \bigcup \tau _\mathbb{R} = \mathbb{R} \)proof let \( B = \bigcup c\in \mathbb{R} .\ \{disk(c,r).\ r \in \mathbb{R} _+\} \)
have \( pmetric\_space(\mathbb{R} ,Add, ROrd,dist,\mathbb{R} ) \) using pmetric_space_valid
moreover
qed
have \( \text{IsMeetSemilattice}(\mathbb{R} _+,ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \) using pos_is_lattice(3) unfolding IsAlattice_def
moreover from R_are_reals have \( \mathbb{R} _+\neq 0 \) unfolding IsAmodelOfReals_def , IsAnOrdField_def using ordring_one_is_pos
moreover have \( B = (\bigcup c\in \mathbb{R} .\ \{disk(c,r).\ r \in \mathbb{R} _+\}) \)
moreover have \( \tau _\mathbb{R} = \{\bigcup A.\ A \in Pow(B)\} \) unfolding RealTopology_def
ultimately show \( \tau _\mathbb{R} \text{ is a topology } \) and \( \bigcup \tau _\mathbb{R} = \mathbb{R} \) using pmetric_is_top
end
Definition of IsAmodelOfReals:
\( \text{IsAmodelOfReals}(K,A,M,r) \equiv \text{IsAnOrdField}(K,A,M,r) \wedge (r \text{ is complete }) \)
Definition of IsAnOrdField:
\( \text{IsAnOrdField}(K,A,M,r) \equiv ( \text{IsAnOrdRing}(K,A,M,r) \wedge \)
\( (M \text{ is commutative on } K) \wedge \)
\( \text{ TheNeutralElement}(K,A) \neq \text{ TheNeutralElement}(K,M) \wedge \)
\( (\forall a\in K.\ a\neq \text{ TheNeutralElement}(K,A)\longrightarrow \)
\( (\exists b\in K.\ M\langle a,b\rangle = \text{ TheNeutralElement}(K,M)))) \)
Definition of IsAnOrdRing:
\( \text{IsAnOrdRing}(R,A,M,r) \equiv \)
\( ( \text{IsAring}(R,A,M) \wedge (M \text{ is commutative on } R) \wedge \)
\( r\subseteq R\times R \wedge \text{IsLinOrder}(R,r) \wedge \)
\( (\forall a b.\ \forall c\in R.\ \langle a,b\rangle \in r \longrightarrow \langle A\langle a,c\rangle ,A\langle b,c\rangle \rangle \in r) \wedge \)
\( ( \text{Nonnegative}(R,A,r) \text{ is closed under } M)) \)
lemma (in ring1) OrdRing_ZF_1_L4: shows \( \text{IsAnOrdGroup}(R,A,r) \), \( r \text{ is total on } R \), \( A \text{ is commutative on } R \), \( group3(R,A,r) \)
lemma (in group0) group_op_closed:
assumes \( a\in G \), \( b\in G \)
shows \( a\cdot b \in G \) lemma (in group0) inverse_in_group:
assumes \( x\in G \)
shows \( x^{-1}\in G \) lemma (in ring1) OrdRing_ZF_1_L4: shows \( \text{IsAnOrdGroup}(R,A,r) \), \( r \text{ is total on } R \), \( A \text{ is commutative on } R \), \( group3(R,A,r) \)
lemma (in group3) OrderedGroup_ZF_3_L3B:
assumes \( r \text{ is total on } G \) and \( a\in G \)
shows \( |a| \in G^+ \) lemma ZF_fun_from_total:
assumes \( \forall x\in X.\ b(x) \in Y \)
shows \( \{\langle x,b(x)\rangle .\ x\in X\} : X\rightarrow Y \) lemma ZF_fun_from_tot_val0:
assumes \( f:X\rightarrow Y \) and \( f = \{\langle x,b(x)\rangle .\ x\in X\} \)
shows \( \forall x\in X.\ f(x) = b(x) \) lemma (in group0) group0_2_L6:
assumes \( x\in G \)
shows \( x\cdot x^{-1} = 1 \wedge x^{-1}\cdot x = 1 \) lemma (in group3) OrderedGroup_ZF_3_L2A: shows \( |1 | = 1 \)
lemma (in group0) group0_2_L12:
assumes \( a\in G \), \( b\in G \)
shows \( (a\cdot b^{-1})^{-1} = b\cdot a^{-1} \), \( (a^{-1}\cdot b)^{-1} = b^{-1}\cdot a \) lemma (in reals) basic_props: shows \( ROrd \text{ is total on } \mathbb{R} \) and \( Add \text{ is commutative on } \mathbb{R} \)
lemma (in group3) OrderedGroup_ZF_3_L7A:
assumes \( r \text{ is total on } G \) and \( a\in G \)
shows \( |a^{-1}| = |a| \) lemma (in group3) OrderedGroup_ZF_3_L3D:
assumes \( a\in G \) and \( |a| = 1 \)
shows \( a = 1 \) lemma (in group0) group0_2_L11A:
assumes \( a\in G \), \( b\in G \) and \( a\cdot b^{-1} = 1 \)
shows \( a=b \) lemma (in group0) cancel_middle:
assumes \( a\in G \), \( b\in G \), \( c\in G \)
shows \( (a\cdot b)^{-1}\cdot (a\cdot c) = b^{-1}\cdot c \), \( (a\cdot b)\cdot (c\cdot b)^{-1} = a\cdot c^{-1} \), \( a^{-1}\cdot (a\cdot b\cdot c)\cdot c^{-1} = b \), \( a\cdot (b\cdot c^{-1})\cdot c = a\cdot b \), \( a\cdot b^{-1}\cdot (b\cdot c^{-1}) = a\cdot c^{-1} \) theorem (in group3) OrdGroup_triangle_ineq:
assumes \( P \text{ is commutative on } G \) and \( r \text{ is total on } G \) and \( a\in G \), \( b\in G \)
shows \( |a\cdot b| \leq |a|\cdot |b| \)Definition of IsApseudoMetric:
\( \text{IsApseudoMetric}(d,X,G,A,r) \equiv d:X\times X \rightarrow \text{Nonnegative}(G,A,r) \)
\( \wedge (\forall x\in X.\ d\langle x,x\rangle = \text{ TheNeutralElement}(G,A))\)
\( \wedge (\forall x\in X.\ \forall y\in X.\ d\langle x,y\rangle = d\langle y,x\rangle )\)
\( \wedge (\forall x\in X.\ \forall y\in X.\ \forall z\in X.\ \langle d\langle x,z\rangle , A\langle d\langle x,y\rangle ,d\langle y,z\rangle \rangle \rangle \in r) \)
Definition of IsAmetric:
\( \text{IsAmetric}(d,X,G,A,r) \equiv \)
\( \text{IsApseudoMetric}(d,X,G,A,r) \wedge (\forall x\in X.\ \forall y\in X.\ d\langle x,y\rangle = \text{ TheNeutralElement}(G,A) \longrightarrow x=y) \)
lemma (in group0) group_is_loop: shows \( \text{IsAquasigroup}(G,P) \) and \( \text{IsAloop}(G,P) \)
lemma Order_ZF_1_L2:
assumes \( \text{IsLinOrder}(X,r) \)
shows \( \text{IsPartOrder}(X,r) \) lemma (in group3) ord_transl_inv:
assumes \( a\leq b \), \( c\in G \)
shows \( a\cdot c \leq b\cdot c \) and \( c\cdot a \leq c\cdot b \) lemma (in group3) ineq_cancel_right:
assumes \( a\in G \), \( b\in G \), \( c\in G \) and \( a\cdot b \leq c\cdot b \)
shows \( a\leq c \) lemma (in group3) OrderedGroup_ZF_1_L5AE:
assumes \( a\in G \), \( b\in G \), \( c\in G \) and \( a\cdot b \leq a\cdot c \)
shows \( b\leq c \)Definition of IsAnOrdLoop:
\( \text{IsAnOrdLoop}(L,A,r) \equiv \)
\( \text{IsAloop}(L,A) \wedge r\subseteq L\times L \wedge \text{IsPartOrder}(L,r) \wedge (\forall x\in L.\ \forall y\in L.\ \forall z\in L.\ \)
\( ((\langle x,y\rangle \in r \longleftrightarrow \langle A\langle x,z\rangle ,A\langle y,z\rangle \rangle \in r) \wedge (\langle x,y\rangle \in r \longleftrightarrow \langle A\langle z,x\rangle ,A\langle z,y\rangle \rangle \in r ))) \)
lemma (in reals) reals_loop: shows \( \text{IsAnOrdLoop}(\mathbb{R} ,Add,ROrd) \)
lemma (in reals) dist_is_metric: shows \( dist : \mathbb{R} \times \mathbb{R} \rightarrow \mathbb{R} ^+ \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = \vert x - y\vert \), \( \forall x\in \mathbb{R} .\ dist\langle x,x\rangle = 0 \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = dist\langle y,x\rangle \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ \forall z\in \mathbb{R} .\ \vert x - z\vert \leq \vert x - y\vert + \vert y - z\vert \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ \forall z\in \mathbb{R} .\ dist\langle x,z\rangle \leq dist\langle x, y\rangle + dist\langle y,z\rangle \), \( \forall x\in \mathbb{R} .\ \forall y\in \mathbb{R} .\ dist\langle x,y\rangle = 0 \longrightarrow x=y \), \( \text{IsApseudoMetric}(dist,\mathbb{R} ,\mathbb{R} ,Add,ROrd) \), \( \text{IsAmetric}(dist,\mathbb{R} ,\mathbb{R} ,Add,ROrd) \)
lemma (in ring1) OrdRing_ZF_1_L1: shows \( \text{IsAnOrdRing}(R,A,M,r) \)
lemma (in group3) pos_set_in_gr: shows \( G_+ \subseteq G^+ \) and \( G_+ \subseteq G \)
lemma ord_linear_subset:
assumes \( \text{IsLinOrder}(X,r) \) and \( A\subseteq X \)
shows \( \text{IsLinOrder}(A,r) \) and \( \text{IsLinOrder}(A,r \cap A\times A) \) lemma lin_is_latt:
assumes \( r\subseteq L\times L \) and \( \text{IsLinOrder}(L,r) \)
shows \( r \text{ is a lattice on } L \) lemma (in reals) pmetric_space_valid: shows \( pmetric\_space(\mathbb{R} ,Add, ROrd,dist,\mathbb{R} ) \)
lemma (in reals) pos_is_lattice: shows \( \text{IsLinOrder}(\mathbb{R} ,ROrd) \), \( \text{IsLinOrder}(\mathbb{R} _+,ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \), \( (ROrd \cap \mathbb{R} _+\times \mathbb{R} _+) \text{ is a lattice on } \mathbb{R} _+ \)
Definition of IsAlattice:
\( r \text{ is a lattice on } L \equiv \text{IsJoinSemilattice}(L,r) \wedge \text{IsMeetSemilattice}(L,r) \)
lemma (in ring1) ordring_one_is_pos:
assumes \( 0 \neq 1 \)
shows \( 1 \in R_+ \)Definition of RealTopology:
\( \tau _\mathbb{R} \equiv \{\bigcup A.\ A \in Pow(\bigcup c\in \mathbb{R} .\ \{disk(c,r).\ r \in \mathbb{R} _+\})\} \)
theorem (in pmetric_space) pmetric_is_top:
assumes \( \text{IsMeetSemilattice}(L_+,r \cap L_+\times L_+) \), \( L_+\neq 0 \)
defines \( B \equiv \bigcup c\in X.\ \{disk(c,R).\ R\in L_+\} \)
defines \( T \equiv \{\bigcup A.\ A \in Pow(B)\} \)
shows \( T \text{ is a topology } \), \( B \text{ is a base for } T \), \( \bigcup T = X \)
This page by Slawomir Kolodynski is licensed under a Creative Commons Attribution 3.0 License. BTC: 189qAMLvqevxMrCsZaABMJ3cLkXdSwMNK8