
theorem
  for G1, G2 being _Graph
  for F being non empty PGraphMapping of G1, G2, H2 being Subgraph of rng F
  for H1 being inducedSubgraph of G1,F_V"the_Vertices_of H2,F_E"the_Edges_of H2
  holds rng(F | H1) == H2
proof
  let G1, G2 be _Graph;
  let F be non empty PGraphMapping of G1, G2; let H2 be Subgraph of rng F;
  let H1 be inducedSubgraph of G1,F_V"the_Vertices_of H2,F_E"the_Edges_of H2;
  A1: H2 is Subgraph of G2 by GLIB_000:43;
  A2: F_E"the_Edges_of H2 c= G1.edgesBetween(F_V"the_Vertices_of H2)
    by A1, Th99;
  set v = the Vertex of H2;
  v in the_Vertices_of H2;
  then v in the_Vertices_of rng F;
  then v in rng F_V by GLIB_010:54;
  then consider x being object such that
    A3: x in dom F_V & F_V.x = v by FUNCT_1:def 3;
  A4: x in F_V"the_Vertices_of H2 by A3, FUNCT_1:def 7;
  then A5: the_Vertices_of H1 = F_V"the_Vertices_of H2 &
    the_Edges_of H1 = F_E"the_Edges_of H2 by A2, GLIB_000:def 37;
  the_Vertices_of H2 c= the_Vertices_of rng F;
  then A6: the_Vertices_of H2 c= rng F_V by GLIB_010:54;
  the_Edges_of H2 c= the_Edges_of rng F;
  then A7: the_Edges_of H2 c= rng F_E by GLIB_010:54;
  x in (dom F_V) /\ the_Vertices_of H1 by A5, A3, A4, XBOOLE_0:def 4;
  then x in dom(F | H1)_V by RELAT_1:61;
  then A8: F | H1 is non empty;
  then A9: the_Vertices_of rng(F | H1)
     = rng(F_V | the_Vertices_of H1) by GLIB_010:54
    .= F_V.:(F_V"the_Vertices_of H2) by A5, RELAT_1:115
    .= the_Vertices_of H2 by A6, FUNCT_1:77;
  the_Edges_of rng(F | H1)
     = rng(F_E | the_Edges_of H1) by A8, GLIB_010:54
    .= F_E.:(F_E"the_Edges_of H2) by A5, RELAT_1:115
    .= the_Edges_of H2 by A7, FUNCT_1:77;
  hence thesis by A1, A9, GLIB_000:86;
end;
