Corrected problem with tracepat_len definition
Added TracePat version of lemma one.