theorem
  len(-p) = len p
proof
A1: len p = 3 by Th42;
    -p = |[ (-p).1,(-p).2,(-p).3 ]| by Th1;
    hence thesis by A1,FINSEQ_1:45;
end;
