let F be Element of QC-WFF ; :: thesis: 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 } :: according to XBOOLE_0:def 10 :: thesis: { G where G is Element of QC-WFF : G is_immediate_constituent_of F } c= rng (list_of_immediate_constituents F)
proof end;
thus { G where G is Element of QC-WFF : G is_immediate_constituent_of F } c= rng (list_of_immediate_constituents F) :: thesis: verum
proof
let x be set ; :: according to TARSKI:def 3 :: thesis: ( 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 } ; :: thesis: 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 A7: F is conjunctive ; :: thesis: ex n being Element of NAT st
( n in dom (list_of_immediate_constituents F) & G = (list_of_immediate_constituents F) . n )

end;
end;
end;
hence x in rng (list_of_immediate_constituents F) by A2, FUNCT_1:def 3; :: thesis: verum
end;