theorem
  (p.v)`2 = 0 implies ex x st (p.v)`1 = [<*x*>,x]
proof
  v is correct by Def12;
  hence thesis by Def4;
end;
