thus
ex d being Element of F1() ex F being Function of CQC-WFF ,F1() st
( d = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) )
:: thesis: for d1, d2 being Element of F1() st ex F being Function of CQC-WFF ,F1() st
( d1 = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) ) & ex F being Function of CQC-WFF ,F1() st
( d2 = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) ) holds
d1 = d2proof
consider F being
Function of
CQC-WFF ,
F1()
such that A1:
(
F . VERUM = F3() & ( for
r,
s being
Element of
CQC-WFF for
x being
bound_QC-variable for
k being
Element of
NAT for
l being
CQC-variable_list of
for
P being
QC-pred_symbol of
k holds
(
F . (P ! l) = F4(
k,
P,
l) &
F . ('not' r) = F5(
(F . r)) &
F . (r '&' s) = F6(
(F . r),
(F . s)) &
F . (All x,r) = F7(
x,
(F . r)) ) ) )
from CQC_LANG:sch 2();
take
F . F2()
;
:: thesis: ex F being Function of CQC-WFF ,F1() st
( F . F2() = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) )
take
F
;
:: thesis: ( F . F2() = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) )
thus
(
F . F2()
= F . F2() &
F . VERUM = F3() & ( for
r,
s being
Element of
CQC-WFF for
x being
bound_QC-variable for
k being
Element of
NAT for
l being
CQC-variable_list of
for
P being
QC-pred_symbol of
k holds
(
F . (P ! l) = F4(
k,
P,
l) &
F . ('not' r) = F5(
(F . r)) &
F . (r '&' s) = F6(
(F . r),
(F . s)) &
F . (All x,r) = F7(
x,
(F . r)) ) ) )
by A1;
:: thesis: verum
end;
let d1, d2 be Element of F1(); :: thesis: ( ex F being Function of CQC-WFF ,F1() st
( d1 = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) ) & ex F being Function of CQC-WFF ,F1() st
( d2 = F . F2() & F . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) & F . (All x,r) = F7(x,(F . r)) ) ) ) implies d1 = d2 )
given F1 being Function of CQC-WFF ,F1() such that A2:
d1 = F1 . F2()
and
A3:
( F1 . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F1 . (P ! l) = F4(k,P,l) & F1 . ('not' r) = F5((F1 . r)) & F1 . (r '&' s) = F6((F1 . r),(F1 . s)) & F1 . (All x,r) = F7(x,(F1 . r)) ) ) )
; :: thesis: ( for F being Function of CQC-WFF ,F1() holds
( not d2 = F . F2() or not F . VERUM = F3() or ex r, s being Element of CQC-WFF ex x being bound_QC-variable ex k being Element of NAT ex l being CQC-variable_list of ex P being QC-pred_symbol of k st
( F . (P ! l) = F4(k,P,l) & F . ('not' r) = F5((F . r)) & F . (r '&' s) = F6((F . r),(F . s)) implies not F . (All x,r) = F7(x,(F . r)) ) ) or d1 = d2 )
given F2 being Function of CQC-WFF ,F1() such that A4:
d2 = F2 . F2()
and
A5:
( F2 . VERUM = F3() & ( for r, s being Element of CQC-WFF
for x being bound_QC-variable
for k being Element of NAT
for l being CQC-variable_list of
for P being QC-pred_symbol of k holds
( F2 . (P ! l) = F4(k,P,l) & F2 . ('not' r) = F5((F2 . r)) & F2 . (r '&' s) = F6((F2 . r),(F2 . s)) & F2 . (All x,r) = F7(x,(F2 . r)) ) ) )
; :: thesis: d1 = d2
F1 = F2
from CQC_LANG:sch 3(A3, A5);
hence
d1 = d2
by A2, A4; :: thesis: verum