reserve V for RealLinearSpace;
reserve p,q,r,u,v,w,y,u1,v1,w1 for Element of V;
reserve a,b,c,d,a1,b1,c1,a2,b2,c2,a3,b3,e,f for Real;

theorem Th3:
  are_Prop p,0.V iff p = 0.V
by RLVECT_1:11;
