apply EQC_EQ; auto with zfc.
Qed.

(* Specifications: *)
Theorem EQC_EXType :
forall E E' : Ens,
EQC E E' ->
forall a : pi1 E,
depprod (pi1 E') (fun b : pi1 E' => EQC (pi2 E a) (pi2 E' b)).
Theorem EQC_EXType :
forall E E' : Ens,
EQC E E' ->
forall a : pi1 E,
depprod (pi1 E') (fun b : pi1 E' => EQC (pi2 E a) (pi2 E' b)).