x y : -(x * y) = -x * y. Proof. lhs nrapply negate_mult_l. lhs rapply (simple_associativity (f := (.*.)) (-1) x y). apply (ap (.* y)). symmetry. apply negate_mult_l. Defined.
Require Import Require Import