abstract Untensed = Cat ** {

  fun
    PosCl,  NegCl  : Cl  -> S ;
    PosQCl, NegQCl : QCl -> QS ;

}