concrete TenseSwe of Tense = CatSwe, TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** 
  TenseScand with
    (ResScand = ResSwe) ;