Section TranslateFacts.
Context {E F : Type -> Type}.
Context {R : Type}.
Context (h : E ~> F).
Global Instance eq_itree_translate' :
Proper (eq_itree eq ==> eq_itree eq) (@translate _ _ h R).
Global Instance eq_itree_translateF :
Proper (going (eq_itree eq) ==> eq_itree eq)
(translateF h (@translate _ _ h R)).
End TranslateFacts.

Lemma translate_id : forall E R (t : itree E R), translate (id_ _) t ≅ t.