theorem Th112:
  L is subst-correct implies A\imp\ex(x,A) in G
  proof set Y = X extended_by ({},the carrier of S1);
    assume
A1: L is subst-correct;
    consider a being object such that
A2: a in dom X & x in X.a by CARD_5:2;
    reconsider a as SortSymbol of J by A2;
A3: x in X.a & a is SortSymbol of S1 by A2,Th8; then
A4: x in Y.a & dom Y = the carrier of S1 by Th2,PARTFUN1:def 2;
    then reconsider x0 = x as Element of Union Y by A3,CARD_5:2;
    A/(x0,x0)\imp\ex(x,A) in G by A1,A2,Th110;
    hence thesis by A1,A3,A4;
  end;
