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

(* Specifications: *)
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.