proposition: Lemma contractN x : contract (- x) = (- contract x)%R.
proof: Proof. by case: x => //= [r|]; [ rewrite normrN mulNr | rewrite opprK]. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed