reserve G, G1, G2 for _Graph, H for Subgraph of G;

theorem
  G2 is G1-Disomorphic implies
    G1.allComponents(),G2.allComponents() are_Disomorphic
proof
  assume G2 is G1-Disomorphic;
  then consider F being PGraphMapping of G1, G2 such that
    A1: F is Disomorphism by GLIB_010:def 24;
  set f = SG2SGFunc(F) | G1.allComponents();
  A2: dom f = G1.allComponents() by FUNCT_2:def 1;
  A3: rng f = G2.allComponents() by A1, Th195;
  SG2SGFunc(F) is one-to-one by A1, Th31;
  then A4: f is one-to-one by FUNCT_1:52;
  now
    let G be _Graph;
    assume A5: G in G1.allComponents();
    then reconsider H = G as plain Component-like Subgraph of G1 by Th189;
    reconsider F9 = F|H as PGraphMapping of H, rng(F|H) by GLIBPRE1:88;
    A6: f.G = (SG2SGFunc F).G by A5, FUNCT_1:49
      .= rng(F | H) by Def5;
    F9 is Disomorphism by A1, GLIBPRE1:110;
    hence f.G is G-Disomorphic _Graph
      by A6, GLIB_010:def 24;
  end;
  hence thesis by A2, A3, A4, GLIB_015:def 12;
end;
