fact: Definition imageGram (f : Elt -> Elt) (X V R : Ensf) (S : Elt) := (map f X, (map f V, (map (fun P : Elt => couple (f (first P)) ((fun w : Elt => word (Word_ext f (word_inv w))) (second P))) R, f S))).
imports: Ensf Words more_words need fonctions Relations