theorem Th25:
  len <%z0,z1,z2%> <= 3
  proof
    3 is_at_least_length_of <%z0,z1,z2%> by Th24;
    hence thesis by ALGSEQ_1:def 3;
  end;
