Section FrobeniusAutomorphism.
Variables (p : nat) (charRp : p \in [char R]).
Canonical Frobenius_aut_additive := Additive Frobenius_aut_is_rmorphism.
Canonical Frobenius_aut_rmorphism := RMorphism Frobenius_aut_is_rmorphism.
End FrobeniusAutomorphism.

Lemma unitrMr x y : x \is a unit -> (x * y \is a unit) = (y \is a unit).