theorem
  for d being object, w being set st w in Seg k holds (k |-> d).w = d
  by FUNCOP_1:7;
