(* ---------------------------------------------- *)

Lemma An_AppCong2 : ∀ (G : context) (D : available_props) rho (g1 g2 : co)
(a1 a2 b1 b2 A B : tm),
AnnDefEq G D g1 a1 b1
→ AnnDefEq G D g2 a2 b2
→ AnnTyping G (a_App a1 rho a2) A
→ AnnTyping G (a_App b1 rho b2) B
→ AnnDefEq G D (g_AppCong g1 rho g2) (a_App a1 rho a2) (a_App b1 rho b2).