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 univl_semantics : forall (lx : list ad) (be : bool_expr) (ve : var_env'), (forall n : nat, ve n = true -> ~ In (N_of_nat n) lx) -> no_dup_list _ lx -> (eval_be' (univl be lx) ve = true <-> (forall ve' : var_env', (forall n : nat, ve' n = true -> In (N_of_nat n) lx) -> eval_be' be (var_env'_or ve ve') = true)).