reserve U0,U1,U2,U3 for Universal_Algebra,
  n for Nat,
  x,y for set;

theorem
  rng the charact of(U0) is non empty Subset of PFuncs((the carrier of
  U0)*,the carrier of U0) by FINSEQ_1:def 4,RELAT_1:41;
