reserve A for QC-alphabet;
reserve i,j,k,l,m,n for Nat;
reserve a,b,e for set;
reserve t,u,v,w,z for QC-symbol of A;
reserve p,q,r,s for Element of CQC-WFF(A);
reserve x for Element of bound_QC-variables(A);
reserve ll for CQC-variable_list of k,A;
reserve P for QC-pred_symbol of k,A;
reserve f,h for Element of Funcs(bound_QC-variables(A),bound_QC-variables(A)),
  K,L for Element of Fin bound_QC-variables(A);

theorem Th41:
  [q,t,K,f] in SepQuadruples p & x.u in f.:still_not-bound_in p implies u<t
proof
  defpred P[Element of CQC-WFF(A),QC-symbol of A, Element of Fin
bound_QC-variables(A),Function] means for u holds x.u in
  $4.:still_not-bound_in p implies u < $2;
A1: now
    let q,r,v,K,f;
    assume [q '&' r, v, K,f] in SepQuadruples p;
    assume
A2: P[q '&' r, v, K,f];
    hence P[q,v,K,f];
    thus P[r,v+QuantNbr(q),K,f]
    proof
      let u;
A3:   v <= v + QuantNbr(q) by QC_LANG1:31;
      assume x.u in f.:still_not-bound_in p;
      hence thesis by A2,A3,QC_LANG1:30;
    end;
  end;
A4: P[p,index p,{}.bound_QC-variables(A),id bound_QC-variables(A)]
  proof
    let u;
    assume
A5: x.u in (id bound_QC-variables(A)).:still_not-bound_in p;
    (id bound_QC-variables(A)).:still_not-bound_in p = still_not-bound_in p
    by FUNCT_1:92;
    hence thesis by A5,Th21;
  end;
A6: now
    let q,x,v,K,f such that
    [All(x,q),v,K,f] in SepQuadruples p;
    assume
A7: P[All(x,q),v,K,f];
    thus P[q,v++,K \/ {.x .},f+*(x .--> x.v)]
    proof
      let u;
      assume
A8:   x.u in (f+*(x .--> x.v)).:still_not-bound_in p;
      (f+*(x .--> x.v)).:still_not-bound_in p c= f.:(still_not-bound_in p
      ) \/ {x.v} by Th2;
      then x.u in f.:still_not-bound_in p or x.u in {x.v}
       by A8,XBOOLE_0:def 3;
      then u < v or x.u = x.v by A7,TARSKI:def 1;
      then u < v or u = v by XTUPLE_0:1;
      then u <= v & v < v++ by QC_LANG1:22,27,def 34;
      hence thesis by QC_LANG1:29;
    end;
  end;
A9: for q,v,K,f st ['not' q,v,K,f] in SepQuadruples p & P['not' q,v,K,f]
  holds P[q,v,K,f];
  for q,v,K,f st [q,v,K,f] in SepQuadruples p holds P[q,v,K,f] from
  Sepregression(A4,A9,A1,A6);
  hence thesis;
end;
