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.fix_typing.
(* --------------------------------------------------- *)

(* Specifications: *)
Lemma uniq_an_toplevel : uniq an_toplevel.
Lemma uniq_toplevel : uniq toplevel.
(* ------------------------------------------ *)
Lemma toplevel_closed : forall F a A, binds F (Ax a A) toplevel ->
Typing nil a A.
Lemma toplevel_to_const : forall T A, binds T (Cs A) toplevel -> Typing nil A a_Star.
Lemma an_toplevel_closed : forall F a A, binds F (Ax a A) an_toplevel ->
AnnTyping nil a A.
Lemma an_toplevel_to_const : forall T A, binds T (Cs A) an_toplevel -> AnnTyping nil A a_Star.
Lemma binds_to_type : forall S T A, AnnSig S -> binds T (Cs A) S -> DataTy A a_Star.