reserve

  n for Nat;
reserve U1 for partial non-empty non empty UAStr;

theorem
  n in dom the charact of U1 implies (the charact of U1).n is
  PartFunc of (the carrier of U1)*,the carrier of U1;
