abstract Params2 = {
  cat Quality ; MassKind ;
  fun
    Good : Quality;
    SuchMassKind : Quality -> MassKind;
}