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