set R = the non empty reflexive discrete RelStr ;
the non empty reflexive discrete RelStr is positive_alliance ;
hence ex b1 being non empty RelStr st
( b1 is positive_alliance & b1 is negative_alliance ) ; :: thesis: verum