(* A term that is well-typed under the empty environment is well-typed under every environment. *)

(* Specifications: *)
Lemma j_agree:
forall E1 t T,
j E1 t T ->
forall E2 k,
agree E1 E2 k ->
length E1 <= k ->
j E2 t T.
Lemma j_empty:
forall E t T,
j (@empty _) t T ->
j E t T.