(* lemmes sur les images des applications précédentes *)

Lemma upl_conv_1_img :
forall (p : prec_list) (a : ad) (la ls : prec_list),
upl_conv_1 p = prec_cons a la ls ->
exists a0 : ad,
(exists la0 : prec_list,
(exists ls0 : prec_list, p = prec_cons a0 la0 ls0)).