(* lemmes de conservation des pl_path_incl par passage au pl_produit *)

Lemma pl_produit_path_incl_0 :
forall (n : nat) (a : ad) (la pl l : prec_list) (plp : pl_path),
pl_path_incl plp l ->
plp <> pl_path_nil ->
pl_essence la pl <= n -> pl_path_incl plp (pl_produit_0 a la pl n l).