concrete TenseSpa of Tense = CatSpa, TenseX [Ant,AAnter,ASimul] ** 
  TenseRomance with
    (ResRomance = ResSpa) ;