fact: Variables (E R : relation A) (f g : nat -> A) (hyp1 : ISMod E (E U R) f g) (hyp2 : forall i, exists j, i <= j /\ R (g j) (f (S j))) (TE : transitive E).
imports: CoLoR(RelUtil NatUtil Path LeastNat LogicUtil ClassicUtil SN NotSN_IS SortUtil ListUtil) Coq(IndefiniteDescription)