theorem Th13:
  len({}H ) = 0
proof
  consider L such that
A1: rng L = Subformulae H & L is one-to-one by FINSEQ_4:58;
  len({}H) = len(L,{}H) by A1,Def26;
  hence thesis by Th4;
end;
