
theorem HomEqui:
  for f be heterogeneous positive non empty real-valued FinSequence holds
    Homogen f, f are_gamma-equivalent
  proof
    let f be heterogeneous positive non empty real-valued FinSequence;
    consider i,j being Nat such that
A1: i = the Element of MeanLess f &
    j = the Element of MeanMore f &
    Homogen f = Replace (f, i, j, Mean f, f.i + f.j - Mean f) by HomDef;
    i in dom f & j in dom f & i <> j by A1,BlaBla;
    hence thesis by A1,ReplaceGamma;
  end;
