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 Rle_R1_pow: forall (x:R) (m n:nat), 0 <= x <= 1 -> (m <= n)%nat -> x^n <= x^m.