fact: Variable IH : forall L R, (subterm L M \/ (L = M /\ subterm R N)) -> {L >> R} + {~L >> R}.
imports: CoLoR(RelExtras ListExtras RelUtil Terms MultisetOrder PairLex MultisetList MultisetTheory AccUtil LogicUtil) Coq(Morphisms Basics)