proposition: Lemma prod_cont (S1 S2 T1 T2 : cpo) (f1 : S1 -> T1) (f2 : S2 -> T2) : continuous f1 -> continuous f2 -> continuous (f1 \* f2).
proof: Proof. case=>M1 H1 [M2 H2]; exists (prod_mono M1 M2)=>d; apply: poset_asym; by (split=>/=; [rewrite proj1_prodE H1 | rewrite proj2_prodE H2]). Qed.
imports: mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq) pcm(options axioms pred prelude)