Canonical fmod_morphism := Morphism fmodM.Notation "u ^@ x" := (actr u x) : ring_scope.Canonical actr_action := Action actr_is_action.Notation "''M'" := actr_action (at level 8) : action_scope.

(* Specifications: *)
Lemma act0r x : 0 ^@ x = 0.
Lemma actAr x : {morph actr^~ x : u v / u + v}.