reserve k,n,n1,m,m1,m0,h,i,j for Nat,
  a,x,y,X,X1,X2,X3,X4,Y for set;
reserve L,L1,L2 for FinSequence;
reserve F,F1,G,G1,H for LTL-formula;
reserve W,W1,W2 for Subset of Subformulae H;
reserve v for LTL-formula;
reserve N,N1,N2,N10,N20,M for strict LTLnode over v;
reserve w for Element of Inf_seq(AtomicFamily);
reserve R1,R2 for Real_Sequence;
reserve s,s0,s1,s2 for elementary strict LTLnode over v;
reserve q for sequence of LTLStates(v);

theorem Th55:
  union BOOL X = X
proof
  {} c= X;
  then BOOL X = bool X \ {{}} & {{}} c= bool X by ORDERS_1:def 3,ZFMISC_1:31;
  then
A1: BOOL X \/ {{}} c= bool X by XBOOLE_1:8;
  BOOL X \/ {{}} = (bool X \{{}}) \/{{}} by ORDERS_1:def 3
    .= bool X \/{{}} by XBOOLE_1:39;
  then bool X c= BOOL X \/ {{}} by XBOOLE_1:7;
  then
A2: bool X = BOOL X \/ {{}} by A1,XBOOLE_0:def 10;
  X = union bool X by ZFMISC_1:81
    .= union BOOL X \/ union {{}} by A2,ZFMISC_1:78
    .= union BOOL X \/ {} by ZFMISC_1:25;
  hence thesis;
end;
