Definition kHom_rmorphism K E f homKEf :=
  RMorphism (@kHom_is_rmorphism K E f homKEf).Definition kHomExtend := linfun (Linear kHomExtend_subproof).Local Notation Px := (minPoly E x).

Lemma kAutS U1 U2 V f : (U1 <= U2)%VS -> kAut U2 V f -> kAut U1 V f.