theorem Th25:
  m <> n implies seq(n,x).m = 0.L
  proof
    assume m <> n;
    hence seq(n,x).m = (0_.L).m by FUNCT_7:32
    .= 0.L by ORDINAL1:def 12,FUNCOP_1:7;
  end;
