(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(****************************************************************************)
(* This contribution was updated for Coq V5.10 by the COQ workgroup.        *)
(* January 1995                                                             *)
(****************************************************************************)
(*                                  Fil.v                                   *)
(****************************************************************************)
Section First_inductive_lemmas.
Variable U : Type.
Variable B : Ensemble U.
Variable D : PO U.

Theorem Pairs_are_enough_finite_case :
Cpo U D ->
(forall x y : U,
Compatible U D x y -> exists bsup : U, Lub U D (Couple U x y) bsup) ->
forall X : Ensemble U,
Finite U X ->
Included U X (Carrier_of U D) ->
(exists maj : U, Upper_Bound U D X maj) ->
exists bsup : U, Lub U D X bsup.