(* Elimination of an intersection from a line *)

(* Specifications: *)
Lemma inter_elim_c cc x a b c d l accu e :
{v[x]} = ({v[a]} ∨ {v[b]}) ∧({v[c]} ∨ {v[d]}) :> vect K ->
{e[inter_elim cc x a b c d l accu e]} =
({c[cc]} * {l[l]} * {l[accu]} + {e[e]})%f.