distributePlus : a * (b + c) -> (a * b) + (a * c)distributive : (p * p') * (s + s') -> (p * s) + (p' * s')distributive property of products over coproducts
distributive' : (p + q) * (a * b) -> (p * a) + (q * b)distributive property of products over coproducts