(* An auxillary function to generate all permutations *) 
Fixpoint all_permutations_aux (l : list A) (n : nat) {struct n} :
 list (list A) :=
  match n with
  | O => nil :: nil
  | S n1 =>
      flat_map
        (fun p : A * list A =>
         map (cons (fst p)) (all_permutations_aux (snd p) n1)) 
        (split_one l)
  end.(* Generate all the permutations *) 
Definition all_permutations (l : list A) := all_permutations_aux l (length l).

Theorem all_permutations_permutation : forall l1 l2 : list A, In l1 (all_permutations l2) -> permutation l1 l2.