Module mathcomp.analysis.topology_theory.bool_topology
From HB Require Import structures.From mathcomp Require Import boot order algebra all_classical.
From mathcomp Require Import reals topology_structure uniform_structure.
From mathcomp Require Import pseudometric_structure order_topology compact.
From mathcomp Require Import discrete_topology.
# Topology for boolean numbers
This file equips bool with the discrete pseudometric.
Unset SsrOldRewriteGoalsOrder.
Import Order.TTheory GRing.Theory Num.Theory.
Local Open Scope classical_set_scope.
Local Open Scope ring_scope.
.
instanceSource code
DefinitionSource code
hasNbhsSource code
.Build bool principal_filter..
instanceSource code
DefinitionSource code
Discrete_ofNbhsSource code
.Build bool erefl..
instanceSource code
DefinitionSource code
DiscreteUniform_ofNbhsSource code
.Build bool.Lemma
bool_compactUsed by
Source code
: compact [set: bool].- mathcomp.analysis.cantor
Source code
Proof.
Local Lemma
bool_nbhs_itvSource code
( : bool) :nbhs b = filter_from
(fun => itv_open_ends i /\ b \in i)
(fun => [set` i]).
Proof.
rewrite nbhs_principalE eqEsubset; split=> U; first last.
by case => V [_ Vb] VU; apply/principal_filterP/VU; apply: Vb.
move/principal_filterP; case: b.
move=> Ut; exists `]false, +oo[; first split => //.
by move=> r /=; rewrite in_itv /=; case: r.
move=> Ut; exists `]-oo, true[; first split => //.
by move=> r /=; rewrite in_itv /=; case: r.
Qed.
by case => V [_ Vb] VU; apply/principal_filterP/VU; apply: Vb.
move/principal_filterP; case: b.
move=> Ut; exists `]false, +oo[; first split => //.
by move=> r /=; rewrite in_itv /=; case: r.
move=> Ut; exists `]-oo, true[; first split => //.
by move=> r /=; rewrite in_itv /=; case: r.
Qed.
.
instanceSource code
DefinitionSource code
Order_isNbhsSource code
.Build _ bool bool_nbhs_itv..
instanceSource code
DefinitionSource code
numDomainType}Source code
:=@DiscretePseudoMetric_ofUniform.Build R bool.