 reserve f,g for Function;
 reserve R for non empty reflexive RelStr;
 reserve R for non empty RelStr;

theorem :: 4.1 a)
  R is reflexive implies
    Flip (f_0 R) cc= id bool the carrier of R
  proof
    assume A0: R is reflexive;
    Flip (f_0 R) = LAp R by FlipLAp;
    hence thesis by A0,LApId;
  end;
