gf-3.4: lib/src/chinese/pinyin/ExtraCmn.gf

concrete ExtraCmn of ExtraChiAbs = CatCmn ** 
  open ResCmn, Prelude in {

  lincat 
    Aspect = {s : Str ; a : ResCmn.Aspect} ;

}