let C1, C2 be Coherence_Space; union (StabCoh (C1,C2)) = [:(Sub_of_Fin C1),(union C2):]
thus
union (StabCoh (C1,C2)) c= [:(Sub_of_Fin C1),(union C2):]
XBOOLE_0:def 10 [:(Sub_of_Fin C1),(union C2):] c= union (StabCoh (C1,C2))
let x, y be object ; RELAT_1:def 3 ( not [x,y] in [:(Sub_of_Fin C1),(union C2):] or [x,y] in union (StabCoh (C1,C2)) )
assume A3:
[x,y] in [:(Sub_of_Fin C1),(union C2):]
; [x,y] in union (StabCoh (C1,C2))
then A4:
y in union C2
by ZFMISC_1:87;
reconsider x = x as set by TARSKI:1;
A5:
x in Sub_of_Fin C1
by A3, ZFMISC_1:87;
then
x is finite
by Def3;
then
ex f being U-stable Function of C1,C2 st Trace f = {[x,y]}
by A5, A4, Th42;
then
( [x,y] in {[x,y]} & {[x,y]} in StabCoh (C1,C2) )
by Def18, TARSKI:def 1;
hence
[x,y] in union (StabCoh (C1,C2))
by TARSKI:def 4; verum