theorem Th3:
  a + a = 2*a
  proof
    1*a = a by RLVECT_1:def 8;
    hence a + a = (1+1)*a by RLVECT_1:def 6
    .= 2*a;
  end;
