fact: Axiom term_rec7 : (forall v1 t2, P2 (Var v1) t2) -> (forall t1 v2, P2 t1 (Var v2)) -> (forall f1 f2 l1 l2, Pl2 l1 l2 -> P2 (Term f1 l1) (Term f2 l2)) -> (forall l1 l2, (forall t1 t2, In t1 l1 -> In t2 l2 -> P2 t1 t2) -> Pl2 l1 l2) -> forall t1 t2, P2 t1 t2.
imports: List more_list list_permut list_set Arith