concrete TempExtZul of TempExt = CatZul ** open ResZul in {

  lin
    TPresTemp = { s = [] ; t = PresTense } ;
    TPastTemp = { s = [] ; t = PastTense } ;
    TFutTemp = { s = [] ; t = FutTense } ;
    TRemFutTemp = { s = [] ; t = RemFutTense } ;
    TRemPastTemp = { s = [] ; t = RemPastTense } ;
}