Lemma sem_binary_operation_stable:
forall (cs1: compspecs) cs2
(CSUB: forall id co, (@cenv_cs cs1)!id = Some co -> cs2!id = Some co)
b v1 e1 v2 e2 phi m v t rho,
app_pred
(@denote_tc_assert cs1 (@isBinOpResultType cs1 b e1 e2 t) rho) phi ->
sem_binary_operation  (@cenv_cs cs1) b v1 (typeof e1) v2 (typeof e2) m = Some v ->
sem_binary_operation cs2 b v1 (typeof e1) v2 (typeof e2) m = Some v.