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