set D = the carrier of S \ { the OneF of S};
let IT1, IT2 be Function of ( the carrier of S \ { the OneF of S}),INT; :: thesis: ( ( for s being Element of the carrier of S \ { the OneF of S} holds IT1 . s = TrivialArity s ) & ( for s being Element of the carrier of S \ { the OneF of S} holds IT2 . s = TrivialArity s ) implies IT1 = IT2 )
A2: ( dom IT1 = the carrier of S \ { the OneF of S} & dom IT2 = the carrier of S \ { the OneF of S} ) by FUNCT_2:def 1;
assume A3: for s being Element of the carrier of S \ { the OneF of S} holds IT1 . s = TrivialArity s ; :: thesis: ( ex s being Element of the carrier of S \ { the OneF of S} st not IT2 . s = TrivialArity s or IT1 = IT2 )
assume A4: for s being Element of the carrier of S \ { the OneF of S} holds IT2 . s = TrivialArity s ; :: thesis: IT1 = IT2
now :: thesis: for x being object st x in dom IT1 holds
IT1 . x = IT2 . x
let x be object ; :: thesis: ( x in dom IT1 implies IT1 . x = IT2 . x )
assume x in dom IT1 ; :: thesis: IT1 . x = IT2 . x
then reconsider s = x as Element of the carrier of S \ { the OneF of S} ;
IT1 . s = TrivialArity s by A3
.= IT2 . s by A4 ;
hence IT1 . x = IT2 . x ; :: thesis: verum
end;
hence IT1 = IT2 by A2, FUNCT_1:2; :: thesis: verum