Require Export TopologicalSpaces.
Require Export OpenBases.
From ZornsLemma Require Export FiniteTypes.
From ZornsLemma Require Export EnsemblesSpec.
Section Subbasis.
Variable X:TopologicalSpace.
Variable SB:Family (point_set X).
Record subbasis : Prop := {
subbasis_elements: forall U:Ensemble (point_set X),
In SB U -> open U;
subbasis_cover: forall (U:Ensemble (point_set X)) (x:point_set X),
In U x -> open U ->
exists A:Type, FiniteT A /\
exists V:A->Ensemble (point_set X),
(forall a:A, In SB (V a)) /\
In (IndexedIntersection V) x /\
Included (IndexedIntersection V) U
}.

Lemma open_basis_is_subbasis: open_basis SB -> subbasis.