consider e being Function of SetVal V,(p => q), SetVal V,(p => r);
e is Function-yielding ;
hence ex b1 being Function of SetVal V,(p => q), SetVal V,(p => r) st b1 is Function-yielding ; :: thesis: verum