theorem Th13:
  p + q = 0.V implies are_Prop p,q
proof
  assume p + q = 0.V;
  then q = -p by RLVECT_1:def 10;
  then q = (-1)*p by RLVECT_1:16;
  hence thesis by Th1;
end;
