proposition: Lemma algebraic_appBodyR : forall M (Mapp: isApp M), algebraic M -> algebraic (appBodyR Mapp).
proof: Proof. intros; inversion H; term_inv M. apply H2. apply appUnit_right with I; trivial. apply H2. apply appArg_right with I; trivial. Qed.
imports: CoLoR(RelExtras ListExtras TermsEta LogicUtil) Coq(Morphisms)