concrete CatSwe of Cat = CatScand with
  (ResScand = ResSwe) ;