 reserve X,a,b,c,x,y,z,t for set;
 reserve R for Relation;

theorem PosReg:
  for L1,L2 be non empty RelStr st
    the RelStr of L1 = the RelStr of L2 &
      L1 is positive_alliance holds L2 is positive_alliance;
