
theorem Th74:
  for G being _finite _Graph, n being Nat st n < G.order() holds ((
  MCS:CSeq(G))``1).PickedAt(n) = MCS:PickUnnumbered((MCS:CSeq(G)).n)
proof
  let G be _finite _Graph, n be Nat such that
A1: n < G.order();
  set GS = MCS:CSeq(G);
  set CSN = GS.n;
  set CS1 = GS.(n+1);
  set VLN = CSN`1;
  set VL1 = CS1`1;
A2: GS.Lifespan() = G.order() by Th70;
  set PU = MCS:PickUnnumbered(CSN);
  set f2 = PU .--> (GS.Lifespan()-'n);
A3: dom f2 = {PU};
  n = card dom VLN by A1,Th65;
  then VL1 = VLN +* (PU .--> (GS.Lifespan()-'n)) by A1,A2,Th64;
  then
A4: dom VL1 = dom VLN \/ {PU} by A3,FUNCT_4:def 1;
A5: (GS``1).Lifespan() = GS.Lifespan() by Th72;
  set PA = (GS``1).PickedAt(n);
  set f1 = PA .--> (GS.Lifespan()-'n);
A6: dom f1 = {PA};
A7: VLN = (GS``1).n by Def24;
  VL1 = (GS``1).(n+1) by Def24;
  then VL1 = VLN +* (PA .--> (GS.Lifespan()-'n)) by A1,A2,A7,A5,Def9;
  then
A8: dom VL1 = dom VLN \/ {PA} by A6,FUNCT_4:def 1;
A9: not PA in dom VLN by A1,A2,A7,A5,Def9;
  now
    assume PA <> PU;
    then not PA in {PU} by TARSKI:def 1;
    then
A10: not PA in dom VL1 by A9,A4,XBOOLE_0:def 3;
    PA in {PA} by TARSKI:def 1;
    hence contradiction by A8,A10,XBOOLE_0:def 3;
  end;
  hence thesis;
end;
