Attempt non-rigid embedding in Coq

This does not work. It fails in lemma1.