concrete QuestionDan of Question = CatDan ** QuestionScand with
  (ResScand = ResDan) ;