
theorem ConstantMean:
  for f being non empty constant real-valued FinSequence holds
    Mean f = the_value_of f
  proof
    let f be non empty constant real-valued FinSequence;
    reconsider v = the_value_of f as Real;
    Mean f = ((len f) * v) / len f by ConstantSum
          .= v * ((len f) / len f) by XCMPLX_1:74
          .= v * 1 by XCMPLX_1:60;
    hence thesis;
  end;
