let X, x be set ; :: thesis: (EmptyBag X) . x = 0
A1: dom (X --> 0 ) = X by FUNCOP_1:19;
per cases ( x in X or not x in X ) ;
end;