fact: Definition isApp {A} (x: A) := kind_of_term x >>= fun k=> match k with | tmApp => ret true | _ => ret false end.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)