reserve n,m for Nat;

theorem Th14:
  for f,g being real-valued FinSequence st
  f,g are_fiberwise_equipotent holds max f=max g
proof
  let f,g be real-valued FinSequence;
  assume f,g are_fiberwise_equipotent;
  then max f <= max g & max g <= max f by Lm1;
  hence thesis by XXREAL_0:1;
end;
