reserve n,k for Element of NAT;

theorem Th14:
  for L be distributive finite LATTICE holds L, InclPoset LOWER(
  subrelstr Join-IRR L) are_isomorphic
proof
  let L be distributive finite LATTICE;
  ex r be Function of L, InclPoset LOWER(subrelstr Join-IRR L ) st r is
  isomorphic & for a being Element of L holds r.a= downarrow a /\ Join-IRR L
by Th13;
  hence thesis;
end;
