Definition Derivestar_P_A_2 := Rstar Conf Derive_P_A_2.

Lemma Der_cons_inv : forall (x : Elt) (u v : Word), dans x X -> Derivestar_P_A_2 (cons x u, v) (nil, nil) -> ex2 (fun v2 : Word => v = cons x v2) (fun v2 : Word => Derivestar_P_A_2 (u, v2) (nil, nil)).