∀ {k G : Type u} [inst : CommRing k] [inst_1 : Monoid G] (A : Rep k G) (W : Submodule k ↑A.V)
  (le_comap : ∀ (g : G), W ≤ Submodule.comap (A.ρ g) W), (A.subtype W le_comap).hom = ModuleCat.ofHom W.subtype