abstract Tensed = Cat, Tense ** { fun UseCl : Tense -> Ant -> Pol -> Cl -> S ; }