Local Notation power := (mscal mult 1).Local Notation "∑" := (msum plus 0).Section power_decomp_uniq.neralize (Hf (S i)); intros; omega.
  Qed.neralize (@power_ge_1 x p); omega.
  Qed.End power_decomp_uniq.Section power_injective.rewrite power_S in H5; omega.
  Qed.apply power_smono_l with (x := 2) in C; omega.
  Qed.

(* Specifications: *)
Theorem sum_2_power_2_injective i1 j1 i2 j2 : j1 <= i1 -> j2 <= i2 -> power i1 2 + power