dom (IncAddr (F,k)) = dom F by Def9;
hence not IncAddr (F,k) is empty ; :: thesis: verum