End CycleMorphism.
Section ZpUnitMorphism.
Variable u : {unit 'Z_#[a]}.

(* Specifications: *)
Lemma injm_cyclem : 'injm (cyclem (val u) a).
Lemma im_cyclem : cyclem (val u) a @* <[a]> = <[a]>.
Definition Zp_unitm := aut injm_cyclem im_cyclem.