Section Relations.
Context {R1 R2 : Type}.
Variable RR : R1 -> R2 -> Prop.
Definition map_default_eq d {E}
: (stateT map (itree E) R1) -> (stateT map (itree E) R2) -> Prop :=
fun t1 t2 => forall s1 s2, (@eq_map _ _ _ _ d) s1 s2 -> eutt (prod_rel (@eq_map _ _ _ _ d) RR) (t1 s1) (t2 s2).
End Relations.

Lemma handle_map_eq :
forall d E X (s1 s2 : map) (m : mapE K d X),
(@eq_map _ _ _ _ d) s1 s2 ->
eutt (prod_rel (@eq_map _ _ _ _ d) eq) (handle_map m s1) ((handle_map m s2) : itree E (map * X)).