∀ {α₁ α₂ : Type w} {m : Type w → Type w'} [inst : Monad m] [inst_1 : LawfulMonad m] {β : Type w}
  [inst_2 : Std.Iterator α₁ m β] [inst_3 : Std.Iterator α₂ m β] (ita : Std.IterM m β)
  (f : Std.IterM m β → Std.IterM m β),
  (∀ (it : Std.IterM m β), (f it).stepAsHetT = Std.IterStep.mapIterator f <$> it.stepAsHetT) → ita.Equiv (f ita)