theorem Th17:
  for x,H holds All(x,H).1 = 4
proof
  let x,H;
  thus All(x,H).1 = (<*4*>^(<*x*>^H)).1 by FINSEQ_1:32
    .= 4 by FINSEQ_1:41;
end;
