Theorem Lem14 : forall d : D, alt (seq (ia one int i) (enc H (mer (seq (ia Frame s3 (Tuple e1 d)) (K i)) (mer (seq (Tn_d d e1) (S i)) (mer (L i) (seq (Rn e0) (R i))))))) (seq (ia one int i) (enc H (mer (seq (ia Frame s3 lce) (K i)) (mer (seq (Tn_d d e1) (S i)) (mer (L i) (seq (Rn e0) (R i))))))) = 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))))).