concrete TenseDan of Tense = CatDan, TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** TenseScand with (ResScand = ResDan) ;