( dom p = dom (- p) & dom p is ordinal ) by VALUED_1:8;
hence - p is Sequence-like ; :: thesis: verum