theorem UApEmpty:
  for R being non empty RelStr holds
    (UAp R).{} = {}
  proof
    let R be non empty RelStr;
    (UAp R).{} = UAp {}R by ROUGHS_2:def 11
              .= {};
    hence thesis;
  end;
