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