[isabelle-dev] locales, groups, metric spaces?
immler at in.tum.de
Tue Apr 16 15:08:37 CEST 2019
Combining it with the anonymous relativization efforts
it could look like this:
locale topological_space_ow =
fixes 𝔘 :: "'at set" and τ :: "'at set ⇒ bool"
assumes open_UNIV[simp, intro]: "τ 𝔘"
assumes open_Int[intro]: "⟦ S ⊆ 𝔘; T ⊆ 𝔘; τ S; τ T ⟧ ⟹ τ (S ∩ T)"
assumes open_Union[intro]: "⟦ K ⊆ Pow 𝔘; ∀S∈K. τ S ⟧ ⟹ τ (⋃K)"
locale metric_space_ow = topological_space_ow +
fixes dist:: "'at ⇒ 'at ⇒ real"
assumes open_dist: "S ⊆ 𝔘 ⟹ τ S ⟷ (∀x∈S. ∃e>0. ∀y. dist y x < e ⟶ y
assumes dist_eq_0_iff [simp]: "x ∈ 𝔘 ⟹ y ∈ 𝔘 ⟹ dist x y = 0 ⟷ x = y"
and dist_triangle2: "x ∈ 𝔘 ⟹ y ∈ 𝔘 ⟹ dist x y ≤ dist x z + dist y z"
Of course, this is yet another approach and different from the
"topology-as-value" approach from Abstract_Topology
One would need to think about if or how it makes sense to combine such a
"locale-only" approach with a
"topology-as-value"/"metric-space-as-value" approach. (Projecting the
topology out of the metric-space value and having these as parameters of
On 4/16/2019 7:29 AM, Lawrence Paulson wrote:
> And what about metric spaces themselves? (Not that we could include very much in the next release, but still)
>> On 15 Apr 2019, at 16:31, Fabian Immler <immler at in.tum.de> wrote:
>> On 4/15/2019 5:57 AM, Lawrence Paulson wrote:
>>> In the context of the recent discussions about Algebra, we could revisit these issues in the context of metric spaces, which we still don’t have (except as type classes). A metric space has a carrier and a binary relation, so syntactically it’s similar to a monoid, except that we don’t expect to extend one with additional fields. So, at least, we should be able to avoid records.
>>> But what about the path from metric spaces to normed vector spaces, etc.?
>> Do you mean with explicit carrier sets and without records?
>> The algebraic part could look like this :
>> locale semigroup_add_on_with =
>> fixes S::"'a set" and pls::"'a⇒'a⇒'a"
>> assumes add_assoc: "a ∈ S ⟹ b ∈ S ⟹ c ∈ S ⟹ pls (pls a b) c = pls a (pls b c)"
>> assumes add_mem: "a ∈ S ⟹ b ∈ S ⟹ pls a b ∈ S"
>> Which leads up to the notion of vector space :
>> "vector_space_on_with S pls mns um zero (scl::'a::field\<Rightarrow>_)"
>> which looks horrible here because of the explicit mention of all of the parameters (I don't recall why). Written as a locale with named parameters, it would look much nicer:
>> locale vector_space_on_with = ab_group_add_on_with +
>> fixes scl::"'f::comm_ring_1⇒_"
>> assumes "x ∈ S ⟹ y ∈ S ⟹ scl a (pls x y) = pls (scl a x) (scl a y)" …
>> For a normed vector space, I guess one would write something like this (assuming that the parameters for the carrier set have the same name in metric_space and vector_space_on_with)
>> locale normed_vector_space = metric_space + vector_space_on_with +
>> fixes norm::"'a => real"
>> assumes "dist x y = norm (x - y)"
>> assumes "norm (x + y) <= norm x + norm y" ...
>>  http://isabelle.in.tum.de/repos/isabelle/file/538919322852/src/HOL/Types_To_Sets/Examples/Group_On_With.thy#l12
>>  http://isabelle.in.tum.de/repos/isabelle/file/538919322852/src/HOL/Types_To_Sets/Examples/Linear_Algebra_On_With.thy#l90
>>> isabelle-dev mailing list
>>> isabelle-dev at in.tum.de
-------------- next part --------------
A non-text attachment was scrubbed...
Size: 5581 bytes
Desc: S/MIME Cryptographic Signature
More information about the isabelle-dev