Definition conv_bci_to_bc (e : BCI) : option BC :=
match inf e with
| I n s => Some (conv n s e)
| _ => None
end.

Lemma conv_bci_to_bc_correct : forall (e : BCI) (e' : BC) (vnl vsl : list bs),
conv_bci_to_bc e = Some e' ->
sem e' vnl vsl = semI e vnl vsl.