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 kHom_kAut_sub K E f : kAut K E f -> kHom K E f.