abstract Weekday = {
  cat 
    WDay ;

  fun
    Mon, Tue : WDay ;

}