( dom (x .--> a) = {x} & rng (x .--> a) = {a} ) by FUNCOP_1:8, FUNCOP_1:13;
hence a | is Val_Sub of A by RELSET_1:4; :: thesis: verum