theorem Th19:
  for F being Functor of [:A,B:],C, a being Object of A holds (
  export F).a is Functor of B,C
proof
  let F be Functor of [:A,B:],C, a be Object of A;
  (export F).a = (F?-a) by Th18;
  hence thesis;
end;
