induction n; intuition; simpl in *.
econstructor.
econstructor.
simpl.
trivial.
eapply rel_map_app.
eapply rel_map_map2.
eapply rel_map_impl; eauto; intuition.
subst.
simpl.
trivial.
eapply rel_map_map2.
eapply rel_map_impl; eauto; intuition.
subst.
simpl.
trivial.
Qed.

(* Specifications: *)
Lemma getAllBlists_rel_map : forall n,
rel_map (fun ls1 ls2 => ls1 = (rev ls2)) (getAllBlists n) (getAllBlists_app n).