concrete WeekdayEng of Weekday = open LangEng, ParadigmsEng in {

  lincat 
    WDay = PN ;

  lin
    Mon = regGenPN "Monday" nonhuman ;
    Tue = regGenPN "Tuesday" nonhuman ;

}