fact: Definition product_space_proj (a:A) : product_space_point_set -> X a := fun (x:product_space_point_set) => x a.
imports: Coq(FunctionalExtensionality) ZornsLemma(DependentTypeChoice EnsembleProduct FiniteIntersections)