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_asym x y : prop_leq x y -> prop_leq y x -> x = y.