abstract Tense = {

  cat
    Pol ;
    Tense ;
    Ant ;

  fun
    PPos, PNeg : Pol ;
    TPres, TPast, TFut, TCond : Tense ;
    ASimul, AAnter : Ant ;

}