 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 FlipF0:
  for x being Subset of R holds
    (Flip f_0 R).x = { w where w is Element of R : (tau R).w c= x }
  proof
    let x be Subset of R;
ZZ: (f_0 R).(x`) = { w where w is Element of R : (tau R).w meets x` }
        by Defff;
    thus (Flip f_0 R).x c= { w where w is Element of R : (tau R).w c= x }
    proof
      let y be object;
      assume
S1:   y in (Flip f_0 R).x; then
      y in ((f_0 R).(x`))` by ROUGHS_2:def 14; then
Z1:   not y in (f_0 R).(x`) by XBOOLE_0:def 5;
      reconsider yy = y as Element of R by S1;
      (tau R).yy misses x` by Z1,ZZ; then
      (tau R).yy c= x by SUBSET_1:24;
      hence thesis;
    end;
    let y be object;
    assume y in { w where w is Element of R : (tau R).w c= x }; then
    consider w being Element of R such that
L1: y = w & (tau R).w c= x;
    reconsider yy = y as Element of R by L1;
    not yy in ((f_0 R).x`)
    proof
      assume yy in (f_0 R).x`; then
      ex v being Element of R st
      yy = v & (tau R).v meets x` by ZZ;
      hence thesis by L1,SUBSET_1:24;
    end; then
    yy in ((f_0 R).(x`))` by XBOOLE_0:def 5;
    hence thesis by ROUGHS_2:def 14;
  end;
