Theorem Lem18 : forall d : D, seq (ia frame c5 (tuple e0)) (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)))))) = enc H (mer (K i) (mer (seq (ia frame s5 (tuple e0)) (seq (Rn e0) (R i))) (mer (seq (Tn_d d e1) (S i)) (L i)))).