Section mm_special_ind.
Variables (n : nat) (P : nat*list (mm_instr (pos n))) (se : nat * vec nat n)
(Q : nat * vec nat n -> Prop).
Hypothesis (HQ0 : Q se)
(HQ1 : forall i ρ v j w,   (i,ρ::nil) <sc P
-> ρ // (i,v) -1> (j,w)
-> P // (j,w) ->> se
-> Q (j,w)
-> Q (i,v)).

Theorem mm_special_ind s : P // s ->> se -> Q s.