(f : ∀ i, Homomorphism C (A i)) : Homomorphism C (ProdAlgebra I A) := BuildHomomorphism (def_prod_algebra_mapin f).
Require Import Import algebra_notations ne_list.notations. Import prod_algebra_notations.