theorem th5a: :: PL_AXIOM:8

for p, q, r being boolean object holds (p => r) => ((q => r) => ((p 'or' q) => r)) = TRUE