(* OK, GIVES THE "SMALLEST" INDICE j ST zj = zi: *)

Definition modulo(m:fmap)(z:dart)(i:dart)
    (hi:inv_hmap m)(he:exd m z):nat.

(* Specifications: *)
Lemma expo_exd: forall(m:fmap)(z t:dart), inv_hmap m -> expo m z t -> exd m t.
Lemma expo_refl: forall(m:fmap)(z:dart), exd m z -> expo m z z.
Lemma expo_trans: forall(m:fmap)(z t u:dart), expo m z t -> expo m t u -> expo m z u.
Lemma expo_symm:forall(m:fmap)(z t:dart), inv_hmap m -> expo m z t -> expo m t z.