(** - ...and vice versa: if [x:(inject_subsets C)] then [(uninject_subsets x):C]

 %\label{uninjectsubsetsify}% *)

Definition uninject_subsetsify :
  forall (A : Setoid) (B : part_set A) (C : part_set B),
  inject_subsets C -> C.

Lemma uninject_subsetsify_comp : forall (A : Setoid) (B : part_set A) (C : part_set B), fun_compatible (uninject_subsetsify (A:=A) (B:=B) (C:=C)).