(* IMMEDIATELY, REPLACING Iter_upb by degree: *)

(* Specifications: *)
Theorem expo_degree : forall(m:fmap)(z t:dart),
inv_hmap m -> expo m z t ->
degree m z = degree m t.
Theorem degree_uniform : forall(m:fmap)(z:dart)(i:nat),
inv_hmap m -> exd m z ->
degree m z = degree m (Iter (f m) i z).
Theorem degree_unicity:forall(m:fmap)(z:dart)(j k:nat),
inv_hmap m -> exd m z ->
let p := degree m z in
j < p -> k < p ->
Iter (f m) j z = Iter (f m) k z -> j = k.