abstract Untensed = Cat ** {

  fun
    PosCl,  NegCl  : Cl  -> S ;
    PosQCl, NegQCl : QCl -> QS ;
    PosRCl, NegRCl : RCl -> RS ;

}