reserve X, Y for non empty set;
reserve X for non empty set;
reserve R for RMembership_Func of X,X;

theorem Th30:
  R c= TrCl R
proof
  for c being Element of [: X,X :] holds R.c <= (TrCl R).c
  proof
    set Q = {n iter R where n is Element of NAT : n > 0};
    let c be Element of [: X,X :];
    consider x,y being object such that
A1: [x,y] = c by RELAT_1:def 1;
    reconsider x,y as Element of X by A1,ZFMISC_1:87;
    R = 1 iter R by Th25;
    then R in Q;
    then
A2: R. [x,y] in pi(Q, [x,y]) by CARD_3:def 6;
    (TrCl R). [x,y] = "\/"(pi(Q, [x,y]), RealPoset [. 0,1 .]) by Th29;
    then R. [x,y] <<= (TrCl R). [x,y] by A2,YELLOW_2:22;
    hence thesis by A1,LFUZZY_0:3;
  end;
  hence thesis;
end;
