Arguments comp_cont {D1 D2 D3 f1 f2}.

(* Specifications: *)
Lemma proj1_cont (D1 D2 : cpo) : continuous (@fst D1 D2).
Arguments diag_cont {D}.
Lemma app_cont A (D : cpo) x : continuous (fun f : A -> D => f x).
Arguments prod_cont {S1 S2 T1 T2 f1 f2}.