Section wf_strict_order_finite.
Variable (X : Type) (HX : exists l, forall x : X, In x l)
(R : X -> X -> Prop)
(Rirrefl : forall x, ~ R x x)
(Rtrans : forall x y z, R x y -> R y z -> R x z).

Theorem wf_strict_order_finite : well_founded R.