theorem Th50:
  dom Complement F1 = dom F1
proof
  thus dom Complement F1 = Seg len Complement F1 by FINSEQ_1:def 3
    .= Seg len F1 by Def5
    .= dom F1 by FINSEQ_1:def 3;
end;
