Let bsm_enc_0 v : bsm_state_enc v (0 ## 0 ## vec_map stack_enc v).

(* Specifications: *)
Theorem bsm_compiler_correct2 v j w1 :
out_code j Q
-> Q // (1,0##0##vec_map stack_enc v) ->> (j,w1)
-> (exists q w, P /BSM/ (fst P,v) ->> (q,w) /\ out_code q P).