Definition iter_elim n x a b c d e :=
iter_rp _ n (do_elim x a b c d) (More _ e).

(* Specifications: *)
Lemma iter_elim_c n x a b c d e :
{v[x]} = ({v[a]} ∨ {v[b]}) ∧ ({v[c]} ∨ {v[d]}) :> vect K ->
{e[rp_val _ (iter_elim n x a b c d e)]} = {e[e]}.