theorem Th31:
 ||. proj(i).x .|| <= ||.x.||
proof
   reconsider y= x as Element of product carr G by Th10;
   proj(i).x = y.i by Def3;
   hence thesis by PRVECT_2:10;
end;
