(* This file are developed by Qinxiang Cao, Shengyi Wang and Aquinas Hobor in 2015 *)
(* summer in Yale-NUS.                                                             *)
Require Export Coq.Classes.Morphisms.

(* Specifications: *)
Lemma In_Permutation_cons: forall {A : Type} (l : list A) (x : A),
In x l ->
exists l', Permutation l (x :: l').
Lemma incl_Permutation {A: Type}: forall (l1 l2: list A), NoDup l2 -> incl l2 l1 -> exists l', Permutation l1 (l2 ++ l').
Local Open Scope logic.