Proof using.
intros f P Q PQ.
apply eventually_map; apply always_map; assumption.
Qed.

(* Specifications: *)
Lemma continuously_map_conv :
forall (f: A->B) (P: infseq A->Prop) (Q: infseq B->Prop),
extensional P -> extensional Q ->
(forall s, Q (map f s) -> P s) ->
forall (s: infseq A), continuously Q (map f s) -> continuously P s.