
theorem Th42:
  for L being non empty reflexive RelStr st for x being Element of
L, N being prenet of L st N is eventually-directed holds x "/\" sup N = sup ({x
  } "/\" rng netmap (N,L)) holds L is satisfying_MC
proof
  let L be non empty reflexive RelStr such that
A1: for x being Element of L, N being prenet of L st N is
  eventually-directed holds x "/\" sup N = sup ({x} "/\" rng netmap (N,L));
  let x be Element of L, D be non empty directed Subset of L;
  reconsider n = id D as Function of D, the carrier of L by FUNCT_2:7;
  reconsider N = NetStr (#D,(the InternalRel of L)|_2 D,n#) as prenet of L by
Th19;
A2: Sup netmap (N,L) = sup N;
  D c= D;
  then
A3: D = n.:D by FUNCT_1:92
    .= rng netmap (N,L) by RELSET_1:22;
  hence x "/\" sup D = x "/\" Sup netmap (N,L) by YELLOW_2:def 5
    .= sup ({x} "/\" D) by A1,A3,A2,Th20;
end;
