fact: Record is_PartialOrder (car : Type) (eq : car -> car -> Prop) (le : car -> car -> Prop) (monotone : (car -> car) -> Prop) (antitone : (car -> car) -> Prop) : Prop := { po_equiv_le_def : forall x y, eq x y <-> (le x y /\ le y x) ; po_le_refl : forall x, le x x ; po_le_trans : forall x y z, le x y -> le y z -> le x z ; po_monotone_def : forall f, monotone f <-> (forall x y, le x y -> le (f x) (f y)) ; po_antitone_def : forall f, antitone f <-> (forall x y, le x y -> le (f y) (f x)) }.
imports: CoRN.algebra.RSetoid