Section Simplifications.
Variables (T : Type) (pT : PredType T).
Add Parametric Morphism T : (@PredI T) with signature
@EqPredType _ _ ==> @EqPredType _ _ ==> @EqPredType _ _ as predI_morph.
Add Parametric Morphism T : (@PredC T) with signature
@EqPredType _ _ ==> @EqPredType _ _ as predC_morph.

Lemma sub_orl (r1 r2 : Pred T) : r1 ~> r1 +p r2. Proof. by left. Qed.
Lemma sub_orr (r1 r2 : Pred T) : r2 ~> r1 +p r2. Proof. by right. Qed.