for S, T being non empty up-complete Poset st S,T are_isomorphic holds
( S is_an_UPS_retract_of T & T is_an_UPS_retract_of S )