 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 g)
  for u,w being Element of R,
      x being Subset of R st
  (UncertaintyMap R).u = (UncertaintyMap R).w holds
    u in (f_1 R).x iff w in (f_1 R).x
  proof
    let u,w be Element of R,
        x be Subset of R;
    assume AA: (UncertaintyMap R).u = (UncertaintyMap R).w;
A3: (f_1 R).x = { w where w is Element of R : (UncertaintyMap R).w meets x }
        by Defff;
    thus u in (f_1 R).x implies w in (f_1 R).x
    proof
      assume
A1:   u in (f_1 R).x;
      consider v being Element of R such that
A2:   u = v & (UncertaintyMap R).v meets x by A1,A3;
      thus w in (f_1 R).x by A3,AA,A2;
    end;
    assume w in (f_1 R).x; then
    consider v being Element of R such that
A2: w = v & (UncertaintyMap R).v meets x by A3;
    thus thesis by A3,AA,A2;
  end;
