incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance ** 
  open 
    CommonRomance,
    ResRomance in {

    lin TPasseSimple = {s = []} ** {t = RPasse} ;   --# notpresent

}