Definition var_env''le (ve1 ve2 : var_env'') :=
  forall x : ad, in_dom _ x ve1 = true -> in_dom _ x ve2 = true.

Lemma decreasing_be_seq_1 : forall (L U : nat) (f : nat -> bool_expr), (forall k : nat, be_ok (var_lu L U) (f k)) -> (forall k : nat, be_le (f (S k)) (f k)) -> exists m : nat, m <= two_power (U - L) /\ be_eq (f m) (f (S m)).