Inductive IO_event : Type -> Type :=
| ERead : IO_event int
| EWrite (c : int) : IO_event unit.Inductive IO_event : Type -> Type :=
| ERead : IO_event int
| EWrite (c : int) : IO_event unit.Inductive IO_event : Type -> Type :=
| ERead : IO_event int
| EWrite (c : int) : IO_event unit.Definition read : itree IO_event int := embed ERead.Definition write (c : int) : itree IO_event unit := embed (EWrite c).Definition IO_itree := itree IO_event unit.

Lemma ITREE_ext : forall tr tr', eq_utt tr tr' -> ITREE tr = ITREE tr'.