(** * Facts about [aloop] and [loop] *)
(* begin hide *)
Program
Classes.Morphisms
Setoids.Setoid
Relations.Relations.
Basics.Basics
Basics.CategoryOps
Basics.CategoryTheory
Basics.CategoryKleisli
Basics.CategoryKleisliFacts
Basics.Function
Core.ITreeDefinition
Core.ITreeMonad
Core.KTree
Eq.Eq
Eq.UpToTaus.
Local Open Scope itree.
(* end hide *)
(** ** [ITree.aloop] *)
(** ** [iter] *)

Lemma eqit_mon {E R1 R2} (RR RR' : R1 -> R2 -> Prop) b1 b2 :
(RR <2= RR') ->
(eqit RR b1 b2 <2= @eqit E _ _ RR' b1 b2).