let H be LTL-formula; :: thesis: for W being Subset of (Subformulae H) holds len W >= 0
let W be Subset of (Subformulae H); :: thesis: len W >= 0

now

per cases ( W = {} H or W <> {} H ) ;

suppose W = {} H ; :: thesis: len W >= 0

hence len W >= 0 by Thlen10; :: thesis: verum

end;

suppose W <> {} H ; :: thesis: len W >= 0

hence len W >= 0 by Thlen1201; :: thesis: verum

end;

end;

end;

hence len W >= 0 ; :: thesis: verum