 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 :: 4.1 f) Flip
  for u,w being Element of R,
      x being Subset of R st
  (tau R).u = (tau R).w holds
    u in (Flip f_0 R).x iff w in (Flip f_0 R).x
  proof
    let u,w be Element of R,
        x be Subset of R;
    assume AA: (tau R).u = (tau R).w;
A3: (Flip f_0 R).x = { w where w is Element of R : (tau R).w c= x }
        by FlipF0;
    thus u in (Flip f_0 R).x implies w in (Flip f_0 R).x
    proof
      assume u in (Flip f_0 R).x; then
      consider v being Element of R such that
A2:   u = v & (tau R).v c= x by A3;
      thus w in (Flip f_0 R).x by A3,AA,A2;
    end;
    assume w in (Flip f_0 R).x; then
    ex v being Element of R st w = v & (tau R).v c= x by A3;
    hence thesis by A3,AA;
  end;
