gf-3.4: lib/src/chinese/ExtraChi.gf

concrete ExtraChi of ExtraChiAbs = CatChi ** 
  open ResChi, Prelude in {

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

}