(* The standard CBV fixpoint combinator *)
Definition Wf := (Lam (App (Var 1) (Lam (App (App (Var 1) (Var 1)) (Var 0))))).Definition Y := Lam (App Wf Wf).Definition Wf_ty A B := fun X => ty_lam X (ty_lam A B).

Lemma Wf_ty_cont : forall A B, contractive (Wf_ty A B).