fact: Hypothesis oplin_l : forall (a b : R) (x : module_util_G), Equal (gen_module_op (sgroup_law R a b) x) (sgroup_law module_util_G (gen_module_op a x) (gen_module_op b x)).
imports: Module_cat Monoid_util Group_util