
theorem Th26:
  for C1 being non empty AltGraph, C2 being non empty reflexive AltGraph,
  o2 being Object of C2, m be Morphism of o2,o2,
  o,o9 being Object of C1, f being Morphism of o,o9 st <^o,o9^> <> {}
  holds (C1 --> m).f = m
proof
  let C1 be non empty AltGraph, C2 be non empty reflexive AltGraph,
  o2 be Object of C2;
A1: <^o2,o2^> <> {} by ALTCAT_2:def 7;
  let m be Morphism of o2,o2;
  set F = C1 --> m;
  let o,o9 be Object of C1, f be Morphism of o,o9;
  assume
A2: <^o,o9^> <> {};
  then <^F.o9,F.o^> <> {} by Def19;
  hence F.f = Morph-Map(F,o,o9).f by A2,Def16
    .= m by A1,A2,Th24;
end;
