let Y, X be non empty set ; :: thesis: for F being BinOp of X
for f being Function of Y,X
for x being Element of X holds (F [:] (id X),x) * f = F [:] f,x

let F be BinOp of X; :: thesis: for f being Function of Y,X
for x being Element of X holds (F [:] (id X),x) * f = F [:] f,x

let f be Function of Y,X; :: thesis: for x being Element of X holds (F [:] (id X),x) * f = F [:] f,x
let x be Element of X; :: thesis: (F [:] (id X),x) * f = F [:] f,x
thus (F [:] (id X),x) * f = F [:] ((id X) * f),x by Th37
.= F [:] f,x by FUNCT_2:23 ; :: thesis: verum