Theorem Lem13 : forall d : D, seq (ia Frame c2 (Tuple e1 d)) (enc H (mer (seq (Tn_d d e1) (S i)) (mer (seq (alt (seq (ia one int i) (ia Frame s3 (Tuple e1 d))) (seq (ia one int i) (ia Frame s3 lce))) (K i)) (mer (L i) (seq (Rn e0) (R i)))))) = Y1 d.