fact: Definition arecompatibleactions {R S G} (mr : module_struct R G) (ms : module_struct S G) := let m1 := module_mult (G,, mr) in let m2 := module_mult (G,, ms) in ∏ (r1 : R) (r2 : S), (m1 r1 ∘ m2 r2 = m2 r2 ∘ m1 r1)%functions.
imports: UniMath.Algebra.Modules.Core UniMath.Algebra.Groups UniMath.Algebra.Monoids UniMath.Algebra.RigsAndRings UniMath.Foundations.Preamble UniMath.Foundations.Sets