concrete WeekdayFre of Weekday = open LangFre, ParadigmsFre in {

  lincat 
    WDay = PN ;

  lin
    Mon = mkPN "lundi" masculine ;
    Tue = mkPN "mardi" masculine ;

}