reserve D for non empty set,
  D1, D2, x, y, Z for set,
  n, k for Nat,
  p, x1, r for Real,
  f for Function,
  Y for RealNormSpace,
  G, H, H1, H2, J for Functional_Sequence of D,the carrier of Y;

theorem
  1 (#) H = H
  proof
    now
      let n be Element of NAT;
      thus (1 (#) H).n = 1 (#) H.n by Def1
      .= H.n by VFUNCT_1:18;
    end;
    hence thesis by FUNCT_2:63;
  end;
