 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 ReflUnc:
  R is reflexive implies
    for w being Element of R holds w in (UncertaintyMap R).w
  proof
    assume aa: R is reflexive;
    let w be Element of R;
    [w,w] in the InternalRel of R by aa,LATTAD_1:1;
    hence thesis by For3;
  end;
