concrete TenseFre of Tense = CatFre, TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** 
  TenseRomance with
    (ResRomance = ResFre) ;