let X, Y be non empty TopSpace; :: thesis: for f being Function of X,Y holds
( f is alpha-continuous iff ( f is p-continuous & f is (alpha,p)-continuous ) )
let f be Function of X,Y; :: thesis: ( f is alpha-continuous iff ( f is p-continuous & f is (alpha,p)-continuous ) )

hereby :: thesis: ( f is p-continuous & f is (alpha,p)-continuous implies f is alpha-continuous )

assume A1: f is alpha-continuous ; :: thesis: ( f is p-continuous & f is (alpha,p)-continuous )
thus f is p-continuous :: thesis: f is (alpha,p)-continuous

proof

let V be Subset of Y; :: according to DECOMP_1:def 27 :: thesis: ( V is open implies f " V in PO X )
assume V is open ; :: thesis: f " V in PO X
then f " V in X ^alpha by A1;
then f " V in (PO X) /\ (D(alpha,p) X) by Th11;
hence f " V in PO X by XBOOLE_0:def 4; :: thesis: verum

end;

thus f is (alpha,p)-continuous :: thesis: verum

proof

let G be Subset of Y; :: according to DECOMP_1:def 35 :: thesis: ( G is open implies f " G in D(alpha,p) X )
assume G is open ; :: thesis: f " G in D(alpha,p) X
then f " G in X ^alpha by A1;
then f " G in (PO X) /\ (D(alpha,p) X) by Th11;
hence f " G in D(alpha,p) X by XBOOLE_0:def 4; :: thesis: verum

end;

end;

assume A2: ( f is p-continuous & f is (alpha,p)-continuous ) ; :: thesis: f is alpha-continuous
let V be Subset of Y; :: according to DECOMP_1:def 28 :: thesis: ( V is open implies f " V in X ^alpha )
assume V is open ; :: thesis: f " V in X ^alpha
then ( f " V in PO X & f " V in D(alpha,p) X ) by A2;
then f " V in (PO X) /\ (D(alpha,p) X) by XBOOLE_0:def 4;
hence f " V in X ^alpha by Th11; :: thesis: verum