fact: Variables (P : term -> Type) (Q : terms -> Type) (H1 : forall x, P (Var x)) (H2 : forall f v, Q v -> P (Fun f v)) (H3 : Q nil) (H4 : forall t v, P t -> Q v -> Q (t :: v)).
imports: CoLoR(LogicUtil BoolUtil ListUtil EqUtil ListDec NatUtil ListMax) Coq(Peano_dec)