let M be non empty set ; :: thesis: for V being ComplexNormSpace
for f1, f2 being PartFunc of M,V
for X, Y being set st f1 is_bounded_on X & f2 | Y is constant holds
( f1 - f2 is_bounded_on X /\ Y & f2 - f1 is_bounded_on X /\ Y )
let V be ComplexNormSpace; :: thesis: for f1, f2 being PartFunc of M,V
for X, Y being set st f1 is_bounded_on X & f2 | Y is constant holds
( f1 - f2 is_bounded_on X /\ Y & f2 - f1 is_bounded_on X /\ Y )
let f1, f2 be PartFunc of M,V; :: thesis: for X, Y being set st f1 is_bounded_on X & f2 | Y is constant holds
( f1 - f2 is_bounded_on X /\ Y & f2 - f1 is_bounded_on X /\ Y )
let X, Y be set ; :: thesis: ( f1 is_bounded_on X & f2 | Y is constant implies ( f1 - f2 is_bounded_on X /\ Y & f2 - f1 is_bounded_on X /\ Y ) )
assume that
A1: f1 is_bounded_on X and
A2: f2 | Y is constant ; :: thesis: ( f1 - f2 is_bounded_on X /\ Y & f2 - f1 is_bounded_on X /\ Y )
A3: f2 is_bounded_on Y by A2, Th54;
then - f2 is_bounded_on Y by Th45;
then A4: f1 + (- f2) is_bounded_on X /\ Y by A1, Th46;
- f1 is_bounded_on X by A1, Th45;
then f2 + (- f1) is_bounded_on Y /\ X by A3, Th46;
hence ( f1 - f2 is_bounded_on X /\ Y & f2 - f1 is_bounded_on X /\ Y ) by A4, Th25; :: thesis: verum