Definition eq (n m : t) := [| n |] = [| m |].Local Infix "=="  := eq (at level 70).Local Notation "0" := ZnZ.zero.Local Notation "1" := ZnZ.one.Local Infix "+" := ZnZ.add.Local Infix "-" := ZnZ.sub.Local Notation "- x" := (ZnZ.opp x).Local Infix "*" := ZnZ.mul.Local Notation wB := (base ZnZ.digits).Ltac zify := unfold eq in *; autorewrite with cyclic.

Lemma mul_1_l : forall x, 1 * x == x.