let ll1, ll2 be FinSequence of QC-variables ; :: thesis: ( ex k being Element of NAT ex P being QC-pred_symbol of k ex ll being QC-variable_list of st
( ll1 = ll & F = P ! ll ) & ex k being Element of NAT ex P being QC-pred_symbol of k ex ll being QC-variable_list of st
( ll2 = ll & F = P ! ll ) implies ll1 = ll2 )
given k1 being Element of NAT , P1 being QC-pred_symbol of k1, ll1' being QC-variable_list of such that A3:
( ll1 = ll1' & F = P1 ! ll1' )
; :: thesis: ( for k being Element of NAT
for P being QC-pred_symbol of k
for ll being QC-variable_list of holds
( not ll2 = ll or not F = P ! ll ) or ll1 = ll2 )
given k2 being Element of NAT , P2 being QC-pred_symbol of k2, ll2' being QC-variable_list of such that A4:
( ll2 = ll2' & F = P2 ! ll2' )
; :: thesis: ll1 = ll2
A5:
( F = <*P1*> ^ ll1' & F = <*P2*> ^ ll2' )
by A3, A4, Th23;
P1 =
the_pred_symbol_of F
by A1, A3, Def21
.=
P2
by A1, A4, Def21
;
hence
ll1 = ll2
by A3, A4, A5, FINSEQ_1:46; :: thesis: verum