deffunc H1( Element of Cosets N, Element of Cosets N) -> Subset of Q = $1 * $2;
A1:
for H1, H2 being Element of Cosets N holds H1(H1,H2) in Cosets N
consider g being Function of [:(Cosets N),(Cosets N):],(Cosets N) such that
A4:
for H1, H2 being Element of Cosets N holds g . (H1,H2) = H1(H1,H2)
from FUNCT_7:sch 1(A1);
take
g
; for H1, H2 being Element of Cosets N holds g . (H1,H2) = H1 * H2
thus
for H1, H2 being Element of Cosets N holds g . (H1,H2) = H1 * H2
by A4; verum