proposition: Lemma app_type_eq : forall M N (Mapp: isApp M) (Napp: isApp N), type (appBodyL Mapp) = type (appBodyL Napp) -> type (appBodyR Mapp) = type (appBodyR Napp) -> type M = type N.
proof: Proof. intros; term_inv M; term_inv N. Qed.
imports: CoLoR(RelExtras ListExtras TermsTyping LogicUtil) Coq(Lia)