set W = the Tree;
set d = the Element of D;
set f = the Tree --> the Element of D;
dom ( the Tree --> the Element of D) = the Tree ;
then reconsider f = the Tree --> the Element of D as DecoratedTree by Def8;
f is D -valued ;
hence ex b1 being Function st
( b1 is DecoratedTree-like & b1 is D -valued ) ; :: thesis: verum