thus ( F3() in F1() implies P1[F3()] ) :: thesis: ( P1[F3()] implies F3() in F1() )
proof
assume F3() in F1() ; :: thesis: P1[F3()]
then A2: F3() in { a where a is Element of F2() : P1[a] } by A1;
thus P1[F3()] from LMOD_7:sch 6(A2); :: thesis: verum
end;
assume P1[F3()] ; :: thesis: F3() in F1()
hence F3() in F1() by A1; :: thesis: verum