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