concrete DemonstrativeFre of Demonstrative = CatFre ** DemonstrativeI with
  (Lang = LangFre) ;