let f, g be Function; :: thesis: dom (f * g) = (dom g) /\ (g " (dom f))
thus dom (f * g) c= (dom g) /\ (g " (dom f)) :: according to XBOOLE_0:def 10 :: thesis: (dom g) /\ (g " (dom f)) c= dom (f * g)

proof

let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in dom (f * g) or x in (dom g) /\ (g " (dom f)) )
assume x in dom (f * g) ; :: thesis: x in (dom g) /\ (g " (dom f))
then ( x in dom g & g . x in dom f ) by FUNCT_1:21;
then ( x in dom g & x in g " (dom f) ) by FUNCT_1:def 13;
hence x in (dom g) /\ (g " (dom f)) by XBOOLE_0:def 4; :: thesis: verum

end;

let x be set ; :: according to TARSKI:def 3 :: thesis: ( not x in (dom g) /\ (g " (dom f)) or x in dom (f * g) )
assume x in (dom g) /\ (g " (dom f)) ; :: thesis: x in dom (f * g)
then ( x in dom g & x in g " (dom f) ) by XBOOLE_0:def 4;
then ( x in dom g & g . x in dom f ) by FUNCT_1:def 13;
hence x in dom (f * g) by FUNCT_1:21; :: thesis: verum