Definition extension_approximation_seq: forall n:nat,
  { g0:point_set X -> point_set RTop |
    continuous g0 /\
    (forall x:point_set X, -1 + (2/3)^n <= g0 x <= 1 - (2/3)^n) /\
    (forall x:point_set (SubspaceTopology F),
      -(2/3)^n <= f x - g0 (subspace_inc F x) <= (2/3)^n) }.

Lemma extension_approximation_seq_cauchy_aux: forall (m n:nat) (x:point_set X), Rabs (proj1_sig (extension_approximation_seq m) x - proj1_sig (extension_approximation_seq n) x) <= Rabs ((2/3)^m - (2/3)^n).