 reserve f,g for Function;
 reserve R for non empty reflexive RelStr;
 reserve R for non empty RelStr;
 reserve f for Function of the carrier of R, bool the carrier of R;

theorem :: i)
  Flip f_1 R is c=-monotone by FlipMono;
