concrete CatNor of Cat = TenseX ** CatScand with
  (ResScand = ResNor) ;