
theorem HetBase:
  for f being non empty homogeneous positive real-valued FinSequence holds
    Mean f = GMean f
  proof
    let f be non empty homogeneous positive real-valued FinSequence;
    the_value_of f = Mean f by ConstantMean;
    hence thesis by ConstantGMean;
  end;
