fact: Definition subrelation_i_respectful_i_pointwise {A B : Type -> Type} (RB : forall T, B T -> B T -> Prop) : subrelation (i_respectful (fun T => @eq (A T)) RB) (i_pointwise RB).
imports: Coq(Relations Setoid) ITree(Basics.Basics)