fact: Definition makePartialOrder car eq le monotone antitone p1 p2 p3 p4 p5 := let p := (@Build_is_PartialOrder car eq le monotone antitone p1 p2 p3 p4 p5) in @Build_PartialOrder (Build_RSetoid (po_st p)) le monotone antitone p.
imports: CoRN.algebra.RSetoid