Copyright (c) 1999 Association of Mizar Users
environ
vocabulary FUNCT_2, MARGREL1, PARTIT1, EQREL_1, BVFUNC_2, ZF_LANG;
notation XBOOLE_0, SUBSET_1, FRAENKEL, MARGREL1, VALUAT_1, EQREL_1, BVFUNC_1,
BVFUNC_2;
constructors BVFUNC_2, BVFUNC_1;
clusters MARGREL1, XBOOLE_0;
theorems BVFUNC_2, PARTIT_2;
begin
reserve Y for non empty set,
a for Element of Funcs(Y,BOOLEAN),
G for Subset of PARTITIONS(Y),
A,B for a_partition of Y;
canceled 5;
theorem
G is independent implies
All('not' Ex(a,A,G),B,G) '<' All(All('not' a,B,G),A,G)
proof
assume G is independent;then
A1:All(All('not' a,B,G),A,G) = All(All('not' a,A,G),B,G) by PARTIT_2:17;
All('not' Ex(a,A,G),B,G) '<' All(All('not' a,A,G),B,G) by BVFUNC_2:21;
hence thesis by A1;
end;