reserve A,B,p,q,r,s for Element of LTLB_WFF,
  i,j,k,n for Element of NAT,
  X for Subset of LTLB_WFF,
  f,f1 for FinSequence of LTLB_WFF,
  g for Function of LTLB_WFF,BOOLEAN;

theorem Th2: for f be FinSequence st len f = 0 holds f/^n = f
  proof
    let f be FinSequence;
    assume
A1: len f = 0;
    per cases;
    suppose
A2:   n = 0;
      then len (f/^n) = len f - n by RFINSEQ:def 1
      .= 0 by A1,A2;
      then f/^n = {};
      hence thesis by A1;
    end;
    suppose
      n > 0;
      then f/^n = {} by A1,RFINSEQ:def 1;
      hence thesis by A1;
    end;
  end;
