Section Restrictions1.
Variable E F : Setoid.
Variable f : MAP E F.
Definition restrict : forall A : part_set E, MAP A F.
intros A; try assumption.
apply (Build_Map (Ap:=fun x : A => f (A x))).
red in |- *.
intros x y; try assumption.
elim y.
elim x.
simpl in |- *; auto with algebra.
Defined.
simpl in |- *; auto with algebra.
Qed.

Lemma restrict_prop_in_part :
forall (A : part_set E) (x : A), Equal (restrict A x) (f (A x)).