proposition: Lemma included_extend : forall (H : forall x, P x -> CProp), included R (extend P H) -> included R P.
proof: Proof. intros H0 H1. red in |- *. unfold extend in H1. intros. elim (H1 x); auto. Qed.
imports: CoRN.algebra.CSetoidFun