fact: Variable R_abs_reduct : forall M (Mabs: isAbs M) N, M -R-> N -> exists Nabs: isAbs N, absBody Mabs -R-> absBody Nabs.
imports: CoLoR(RelExtras ListExtras PairLex Horpo LogicUtil AccUtil) Coq(Setoid Morphisms Basics)