(* open the type-checker *)

(* Specifications: *)
Lemma infer_type :
forall (e : env_ecc) (t : trm_ecc),
wf_ecc e -> infer_ppal_type _ ecc_pts e t.
Lemma infer_type :
forall (e : env_v6) (t : trm_v6), wf_v6 e -> infer_ppal_type _ v6_pts e t.
Lemma infer_type :
forall (e : env_v6) (t : trm_v6), wf_v6 e -> infer_ppal_type _ v6_pts e t.