theorem
   proj1 proj1 {[x1,x2,x3]} = {x1}
   proof
   thus proj1 proj1 {[x1,x2,x3]}
       = proj1 {[x1,x2]} by RELAT_1:9
      .= {x1} by RELAT_1:9;
   end;
