generic

  type ValueType is private;
  with function Compare(L, R : ValueType) return Boolean;

function Maximum_Generic(L, R : ValueType) return ValueType;
------------------------------------------------------------------------
--| Specification for generic maximum function
--| Author: Michael B. Feldman, The George Washington University
--| Last Modified: September 1995
------------------------------------------------------------------------