Definition induced1 (a:A) : quotient S -> C :=
induced_function (f a) equivS (slices_well_defined a).
Definition eq_fn (f g:quotient S->C) :=
forall b:quotient S, f b = g b.

Lemma well_defined_induced1: forall a1 a2:A, R a1 a2 ->
eq_fn (induced1 a1) (induced1 a2).