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