Theorem Lem19 : forall d : D, alt (seq (ia one int i) (enc H (mer (seq (ia frame s6 (tuple e0)) (L i)) (mer (seq (Rn e0) (R i)) (mer (K i) (seq (Tn_d d e1) (S i))))))) (seq (ia one int i) (enc H (mer (seq (ia frame s6 sce) (L i)) (mer (seq (Rn e0) (R i)) (mer (K i) (seq (Tn_d d e1) (S i))))))) = enc H (mer (seq (Rn e0) (R i)) (mer (alt (seq (ia one int i) (seq (ia frame s6 (tuple e0)) (L i))) (seq (ia one int i) (seq (ia frame s6 sce) (L i)))) (mer (K i) (seq (Tn_d d e1) (S i))))).