intuition.
unfold Gi_count, Gi.
fcf_inline_first.
fcf_skip.
fcf_simp.
fcf_inline_first.
fcf_skip.
fcf_simp.
simpl.
intuition.
Qed.

(* Specifications: *)
Theorem O1_count_wf :
forall a b,
well_formed_comp (O1_count a b).