Section Fixpoint_Body.
(* Useful for the mutual recursion  type inference <-> type checking *)
Hypothesis
fix_inference : forall (t : term) (e : env), wf e -> infer_ppal_type e t.

Theorem fix_chk_wk :
forall (e : env) (t T : term), wf e -> wf_type e T -> check_dec e t T.