Definition var_env_or (ve1 ve2 : var_env) (x : ad) := ve1 x || ve2 x.
Definition var_env'_or (ve1 ve2 : var_env') (x : nat) := ve1 x || ve2 x.

Lemma replacel_lemma2 :
forall be : bool_expr,
be_ok (var_lu 0 N) be -> replacel be (lx N) (lx' N) = be_dash be.