let x, y be object ; :: thesis: ( {x,y} is constituted-DTrees iff ( x is DecoratedTree & y is DecoratedTree ) )
thus ( {x,y} is constituted-DTrees implies ( x is DecoratedTree & y is DecoratedTree ) ) :: thesis: ( x is DecoratedTree & y is DecoratedTree implies {x,y} is constituted-DTrees )
proof end;
assume that
A3: x is DecoratedTree and
A4: y is DecoratedTree ; :: thesis: {x,y} is constituted-DTrees
let z be object ; :: according to TREES_3:def 5 :: thesis: ( z in {x,y} implies z is DecoratedTree )
thus ( z in {x,y} implies z is DecoratedTree ) by A3, A4, TARSKI:def 2; :: thesis: verum