card (- p) = card (dom p) by VALUED_1:8
.= n by CARD_1:def 7 ;
hence - p is n -element by CARD_1:def 7; :: thesis: verum