theorem
  proj1 R = (R~).:B & (R~).:(R.:A) = (R~).:(proj2 R) by Th50;
