fact: Definition appUnits M : list Term := let fix appUnits_rec M (Mt: TermTyping M) : list Term := match Mt with | (TApp Ltyp Rtyp) => (buildT Rtyp) :: (@appUnits_rec (buildT Ltyp) Ltyp) | _ => (buildT Mt)::nil end in rev (appUnits_rec M M.(typing)).
imports: CoLoR(RelExtras ListExtras TermsTyping LogicUtil) Coq(Lia)