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