intros l t H; case H; simpl in |- *; auto.
intros t0; discriminate.
intros l1 l2 t1 t2 t3 H0 H1; red in |- *; intros H2;
absurd (length l1 = length (t1 :: t2 :: l2)); auto.
rewrite H2; simpl in |- *; intros; discriminate.
apply permutation_length with (1 := H0); auto.
Qed.

(* Specifications: *)
(* A non empty list is a cover of something *)
Theorem one_cover_ex :
forall l : list (btree A), l <> nil -> exists t : btree A, cover l t.