let F be Element of QC-WFF ; rng (list_of_immediate_constituents F) = { G where G is Element of QC-WFF : G is_immediate_constituent_of F }
thus
rng (list_of_immediate_constituents F) c= { G where G is Element of QC-WFF : G is_immediate_constituent_of F }
XBOOLE_0:def 10 { G where G is Element of QC-WFF : G is_immediate_constituent_of F } c= rng (list_of_immediate_constituents F)
thus
{ G where G is Element of QC-WFF : G is_immediate_constituent_of F } c= rng (list_of_immediate_constituents F)
verumproof
let x be
set ;
TARSKI:def 3 ( not x in { G where G is Element of QC-WFF : G is_immediate_constituent_of F } or x in rng (list_of_immediate_constituents F) )
assume
x in { G where G is Element of QC-WFF : G is_immediate_constituent_of F }
;
x in rng (list_of_immediate_constituents F)
then consider G being
Element of
QC-WFF such that A2:
x = G
and A3:
G is_immediate_constituent_of F
;
ex
n being
Element of
NAT st
(
n in dom (list_of_immediate_constituents F) &
G = (list_of_immediate_constituents F) . n )
proof
A4:
F <> VERUM
by A3, QC_LANG2:41;
per cases
( F is negative or F is conjunctive or F is universal )
by A3, A4, QC_LANG1:7, QC_LANG2:47;
suppose A13:
F is
universal
;
ex n being Element of NAT st
( n in dom (list_of_immediate_constituents F) & G = (list_of_immediate_constituents F) . n )then A14:
not
F is
conjunctive
by QC_LANG1:18;
( not
F is
atomic & not
F is
negative )
by A13, QC_LANG1:18;
then A15:
list_of_immediate_constituents F = <*(the_scope_of F)*>
by A13, A14, Def1, QC_LANG1:18;
consider n being
Element of
NAT such that A16:
n = 1
;
A17:
G = the_scope_of F
by A3, A13, QC_LANG2:50;
(
dom <*(the_scope_of F)*> = Seg 1 &
<*(the_scope_of F)*> . n = the_scope_of F )
by A16, FINSEQ_1:def 8;
hence
ex
n being
Element of
NAT st
(
n in dom (list_of_immediate_constituents F) &
G = (list_of_immediate_constituents F) . n )
by A15, A16, A17, FINSEQ_1:3;
verum end; end;
end;
hence
x in rng (list_of_immediate_constituents F)
by A2, FUNCT_1:def 3;
verum
end;