Canonical amulr_additive := Eval hnf in Additive amulr_is_lrmorphism.Canonical amulr_linear := Eval hnf in AddLinear amulr_is_lrmorphism.Canonical amulr_rmorphism := Eval hnf in AddRMorphism amulr_is_lrmorphism.Canonical amulr_lrmorphism := Eval hnf in LRMorphism amulr_is_lrmorphism.Fact prodv_key : unit.

Lemma prodv0 : right_zero 0%VS prodv.