theorem
  for R being Equivalence_Relation of X holds
  RelStr2UniformSpaceStr(UniformSpaceStr2RelStr(uniformity_induced_by(R)))
    = uniformity_induced_by(R)
  proof
    let R be Equivalence_Relation of X;
    the carrier of RelStr2UniformSpaceStr(UniformSpaceStr2RelStr(
      uniformity_induced_by(R)))=
    the carrier of uniformity_induced_by(R) &
    the entourages of RelStr2UniformSpaceStr(UniformSpaceStr2RelStr(
      uniformity_induced_by(R)))=
    rho (meet(the entourages of uniformity_induced_by(R)));
    hence thesis by Th28;
  end;
