fact: Axiom well_formed_unfold : forall t, well_formed t -> match t with | Var _ => True | Term f l => (forall u, In u l -> well_formed u) /\ (match arity f with | Free n => length l = n | _ => length l = 2 end) end.
imports: List more_list list_permut list_set Arith