Definition APPLY_sound := (@APPLY_sound _ (expr typ func) _ _ _ _ _ _ _ _ _ _ _ ).(*Definition APPLY_sound :=
  (@APPLY_sound _ (expr typ func) _ _ _ _ _ _ _ _ _ _ _ _
 (fun (subst : Type)
                                 (SS : Subst subst (expr typ func))
                                 (SU : SubstUpdate subst (expr typ func))
                                 (tus tvs : tenv typ)
                                 (n : nat) (l r : expr typ func)
                                 (t3 : typ) (s1 : subst) =>
                               @ExprUnify_simul.exprUnify subst typ func
                                 RType_typ (_)
                                 Typ2_tyArr SS SU
                                 (S (S (S (S (S (S (S (S (S (S O))))))))))
                                 tus tvs n l r t3 s1) _ (ExprLift.vars_to_uvars_exprD')).*)
(*

 (fun (subst : Type)
                                 (SS : Subst subst (expr typ func))
                                 (SU : SubstUpdate subst (expr typ func))
                                 (tus tvs : tenv typ)
                                 (n : nat) (l r : expr typ func)
                                 (t3 : typ) (s1 : subst) =>
                               @ExprUnify_simul.exprUnify subst typ func
                                 RType_typ (_)
                                 Typ2_tyArr SS SU
                                 (S (S (S (S (S (S (S (S (S (S O))))))))))
                                 tus tvs n l r t3 s1) _ (* (ExprLift.vars_to_uvars_exprD')*)).*)

Definition EAPPLY_sound :=
  (@EAPPLY_sound _ (expr typ func) _ _ _ _ _ _ _ _ _ _).

Lemma APPLY_condition2: forall (subst : Type) (S : Subst subst (expr typ func)) (SO : SubstOk S) (SU : SubstUpdate subst (expr typ func)) (SUO : SubstUpdateOk SU SO), UnifyI.unify_sound (fun (tus tvs : tenv typ) (n : nat) (l r : expr typ func) (t : typ) (s : subst) => exprUnify 10 tus tvs n l r t s).