End InducedFunction.
Section InducedFunction2.
(* well-defined function A->B induces a function A/R->B/S *)
Variable A B:Type.
Variable R:relation A.
Variable S:relation B.
Variable f:A->B.
Hypothesis equivR: equivalence R.
Hypothesis equivS: equivalence S.
Hypothesis well_defined2: forall a1 a2:A, R a1 a2 -> S (f a1) (f a2).
Definition projf (a:A) : quotient S :=
quotient_projection S (f a).

(* Specifications: *)
Lemma projf_well_defined: forall a1 a2:A,
R a1 a2 -> projf a1 = projf a2.