abstract MusicLex = Cat ** {
    fun
      song_N : N ;
      american_A : A ;
    }