let n be Nat; :: thesis: for x, y being real number
for p1, p2, p3 being Element of n -tuples_on REAL holds |(((x * p1) + (y * p2)),p3)| = (x * |(p1,p3)|) + (y * |(p2,p3)|)
let x, y be real number ; :: thesis: for p1, p2, p3 being Element of n -tuples_on REAL holds |(((x * p1) + (y * p2)),p3)| = (x * |(p1,p3)|) + (y * |(p2,p3)|)
let p1, p2, p3 be Element of n -tuples_on REAL ; :: thesis: |(((x * p1) + (y * p2)),p3)| = (x * |(p1,p3)|) + (y * |(p2,p3)|)
|(((x * p1) + (y * p2)),p3)| = |((x * p1),p3)| + |((y * p2),p3)| by Th40
.= (x * |(p1,p3)|) + |((y * p2),p3)| by Th41
.= (x * |(p1,p3)|) + (y * |(p2,p3)|) by Th41 ;
hence |(((x * p1) + (y * p2)),p3)| = (x * |(p1,p3)|) + (y * |(p2,p3)|) ; :: thesis: verum