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 Th10: (con <*>LTLB_WFF)/.(len con <*>LTLB_WFF) = TVERUM
  proof
A1: len <*>l = 0;
    then con <*>l = <*TVERUM*> by Def2;
    then A2: len con <*>l = 1 by FINSEQ_1:39;
    hence kon(<*>l) = (con <*>l).(len con <*>l) by FINSEQ_4:15
    .= <*TVERUM*>.(len con <*>l) by Def2,A1
    .= TVERUM by A2;
  end;
