prolog [ in_mon_X_Der_imp_inmon_X ] 7.
(*Intros. Apply in_mon_X_Der_imp_inmon_X with R1 u;Assumption.*)
Qed.

(* Specifications: *)
Lemma inmon_Der_imp_inmon_d :
~ dans S X ->
~ dans S V1 ->
~ dans S V2 ->
forall u v : Word,
isGram X V1 R1 S1 ->
isGram X V2 R2 S2 ->
inter V1 V2 empty ->
inmonoid (union X V1) u -> Derive Ru u v -> inmonoid (union X V1) v.