Section UniqCycleRev.
Variable T : eqType.
Implicit Type p : seq T.

(* Specifications: *)
Lemma prev_rev p : uniq p -> prev (rev p) =1 next p.
Lemma next_rev p : uniq p -> next (rev p) =1 prev p.
Lemma prev_map p : uniq p -> forall x, prev (map h p) (h x) = h (prev p x).
End MapEqPath.