End WW.
(** Injecting [Z] numbers into a cyclic structure *)
Section Of_Z.
Context {t : Set}{ops : Ops t}{specs : Specs ops}.
Notation "[| x |]" := (to_Z x)  (at level 0, x at level 99).

Theorem of_pos_correct:
forall p, Zpos p < base digits -> [|(snd (of_pos p))|] = Zpos p.