Set Bullet Behavior "Strict Subproofs".
Set Implicit Arguments.
Require Export FcEtt.tactics.
Require Export FcEtt.imports.
Require Export FcEtt.ett_inf.
Require Export FcEtt.ett_ott.
Require Export FcEtt.ett_ind.
Require Export FcEtt.ext_context_fv.
Require Export FcEtt.toplevel.
intros.  induction H; auto.
eapply Value_lc in H. eauto.
Qed.
intros.  induction H; auto.
- inversion H. apply lc_body_tm_wrt_tm; auto.
- apply Value_lc in H. inversion H.
apply lc_body_tm_wrt_tm; auto.
- inversion H. apply lc_body_tm_wrt_co; auto.
- apply Toplevel_lc in H. inversion H. auto.
Qed.

Lemma cf : forall A B (f : A -> B) (a b : A),  a = b -> f a = f b.