fact: Definition continuous_at_2arg (x:X) (y:Y) := continuous_at (fun p:X * Y => f (fst p) (snd p)) (x, y) (X:=ProductTopology2 X Y).
imports: Coq(FunctionalExtensionality) ZornsLemma(DependentTypeChoice EnsembleProduct FiniteIntersections)