let x be object ; :: thesis: for f, g, h being Function st x in dom g holds
( <*f,g*> .. (2,x) = g . x & <*f,g,h*> .. (2,x) = g . x )
let f, g, h be Function; :: thesis: ( x in dom g implies ( <*f,g*> .. (2,x) = g . x & <*f,g,h*> .. (2,x) = g . x ) )
A1: ( 2 in Seg 2 & 2 in Seg 3 ) by Th1, ENUMSET1:def 1, FINSEQ_1:2, TARSKI:def 2;
A2: ( dom <*f,g*> = Seg 2 & dom <*f,g,h*> = Seg 3 ) by FINSEQ_1:89;
( <*f,g*> . 2 = g & <*f,g,h*> . 2 = g ) ;
hence ( x in dom g implies ( <*f,g*> .. (2,x) = g . x & <*f,g,h*> .. (2,x) = g . x ) ) by A1, A2, FUNCT_5:38; :: thesis: verum