theorem Th18:
  H is being_equality implies H.1 = 0
proof
  assume H is being_equality;
  then consider x,y such that
A1: H = x '=' y;
  H = <* 0,x,y *> by A1,FINSEQ_1:def 10;
  hence thesis;
end;
