correspondence_image_mono

forall (G : Sort succ u), forall (one : G), forall (mul : forall (a : G), forall (b : G), G), forall (inv : forall (a : G), G), forall (N : forall (x : G), Prop), forall (Hpred : forall (x : G), Prop), forall (Hpred2 : forall (x : G), Prop), forall (group_args : @GroupLawArgs.{succ u} G one mul inv), forall (n_normal : @NormalSubgroupLawArgs.{succ u} G one mul inv N), forall (h_le : @SubgroupLe.{succ u} G Hpred Hpred2), @SubgroupLe.{succ u} (@NormalQuot.{u} G one mul inv N group_args n_normal) (@CorrespondenceImagePred.{u} G one mul inv N Hpred group_args n_normal) (@CorrespondenceImagePred.{u} G one mul inv N Hpred2 group_args n_normal)

fun G => fun one => fun mul => fun inv => fun N => fun Hpred => fun Hpred2 => fun group_args => fun n_normal => fun h_le => fun (q : @NormalQuot.{u} G one mul inv N group_args n_normal) => fun (hq : @CorrespondenceImagePred.{u} G one mul inv N Hpred group_args n_normal q) => @correspondence_image_elim.{u} G one mul inv N Hpred group_args n_normal q hq (@CorrespondenceImagePred.{u} G one mul inv N Hpred2 group_args n_normal q) (fun (h : G) => fun (hh : Hpred h) => fun (eq_q : @Eq.{succ u} (@NormalQuot.{u} G one mul inv N group_args n_normal) (@NormalQuotMk.{u} G one mul inv N group_args n_normal h) q) => @correspondence_image_intro.{u} G one mul inv N Hpred2 group_args n_normal q h (h_le h hh) eq_q)