Section Variables.
Definition F (x: nat): nat := (I__S (inl x)).
Definition G (x y z: nat): nat := I__S (inr (I__P (x, I__P (y, z)))).
Definition Fs E := map F (Vars__de E).
Definition Gs (E: list deq) :=
flat_map (fun e =>
match e with
| (x *ₑ y =ₑ z) => [G x y z]
| _ => nil
end) E.

Lemma Fs_in x E: x ∈ Vars__de E -> F x ∈ Fs E.