let i, j, n be Element of NAT ; :: thesis: for a, b being bag of holds i,j -cut (a + b) = (i,j -cut a) + (i,j -cut b)
let a, b be bag of ; :: thesis: i,j -cut (a + b) = (i,j -cut a) + (i,j -cut b)
set CUTAB = i,j -cut (a + b);
set CUTA = i,j -cut a;
set CUTB = i,j -cut b;
now let x be
set ;
:: thesis: ( x in j -' i implies (i,j -cut (a + b)) . x = ((i,j -cut a) + (i,j -cut b)) . x )assume A1:
x in j -' i
;
:: thesis: (i,j -cut (a + b)) . x = ((i,j -cut a) + (i,j -cut b)) . x
j -' i = { k where k is Element of NAT : k < j -' i }
by AXIOMS:30;
then consider k being
Element of
NAT such that A2:
(
k = x &
k < j -' i )
by A1;
reconsider x' =
x as
Element of
NAT by A2;
(i,j -cut (a + b)) . x = (a + b) . (i + x')
by A1, Def1;
then A3:
(i,j -cut (a + b)) . x = (a . (i + x')) + (b . (i + x'))
by POLYNOM1:def 5;
(
(i,j -cut a) . x = a . (i + x') &
(i,j -cut b) . x = b . (i + x') )
by A1, Def1;
hence
(i,j -cut (a + b)) . x = ((i,j -cut a) + (i,j -cut b)) . x
by A3, POLYNOM1:def 5;
:: thesis: verum end;
hence
i,j -cut (a + b) = (i,j -cut a) + (i,j -cut b)
by PBOOLE:3; :: thesis: verum