Definition idealPosetMixin :=
  PosetMixin ideal_refl ideal_asym ideal_trans.Canonical idealPoset := Eval hnf in Poset (ideal P) idealPosetMixin.Definition prop_leq (p1 p2 : Prop) := p1 -> p2.

Lemma prop_trans x y z : prop_leq x y -> prop_leq y z -> prop_leq x z.