End Be_iter1.

Lemma be_iter1_le_preserved :
forall (n : nat) (be1 be2 : bool_expr) (f1 f2 : bool_expr -> bool_expr),
be_le be1 be2 ->
(forall be1' be2' : bool_expr, be_le be1' be2' -> be_le (f1 be1') (f2 be2')) ->
be_le (be_iter1 f1 be1 n) (be_iter1 f2 be2 n).