Proof fix_chk_wk full_ppal_type.
Let add_cst : forall (e : env) (t T : term), wf e -> decl_dec e (Def t T).
(* Realizer [e:env; t,T:term] Cases (tmp_add_typ e T) of Dcl_ok => (tmp_check_typ_when_wf e t T) | (Dcl_fail err) => (Chk_fail err) end. *)
intros.
elim (tmp_add_typ e T); trivial; intros.
elim (tmp_check_typ_when_wf e t T); trivial; intros.
left.
inversion_clear w.
apply wf_cst with s; trivial with pts.
right with err; auto with pts.
inversion_clear w.
left with s; trivial with pts.
right with err; auto with pts.
Qed.

(* Specifications: *)
Lemma tmp_check_wf_type : forall (e : env) (t : term), wf e -> wft_dec e t.
intros.